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USE COMANDOS ABREVIA DQS 

CQMO ECONOMIZAR MEM6RIA 

COMANDOS MOlTIPLOS 

CQMO MELHORAR A 

VELOCIDAOE DE UM PROGRAMA 



Programas mais curtos ocupam menores 
espacos na memdna do computador, 
alem de serem de execute mais rapid a, 
Aprenda a trabalhar com eles, 
melhorando o desempenho do seu micro, 



Umadas regras basicas para se escre- 
ver urn programa e torna-lo claro e le- 
givel, usando linhas curtas com comen- 
tarios e espacos em branco e, se possf- 
vel, com nomes longos de variaveis, 

Evitar a digitac&o de muitos caracte- 
res e uma das exigencias mais importan- 
tes quando se pretende, per exemplo, 
copiar a longa listagem de uma revista. 
Neste caso, nao hi neccssidade de digi- 
tar todas as declaracSes REM do pro- 
grama. AfinaJ, sempre € possfvel con- 
sultar a revista mais uma vez, caso a fi- 
nalidade de alguma secao do programa 
tenha sido esquecida. 

Outra maneira de reduzir o trabalho 
de digitacto na entrada de um progra- 
ma e omitir palavras-chaves opcionais 
do BASIC, embora nem todos os micros 
admitam esse tipo de omissao (e o caso 
do Sinclair), Mas em outros computa- 
dores voce pode deixar de lado todos OS 
LET e THEN, que sao declaragoes op- 
cionais, ou mesmo — eomo no caso de 
uma linha de programa que contenha 
IT,. .THEN GOTO... — omitir o THEN 
ou o GOTO (a eliminacao de ambas as 
partes, porem, nao e possivel). 

Alguns micros permitem que se en- 
trem palavras-chaves de forma abrevia- 
da, como ? em vez de PRINT, e ' (ap6s- 
trofo), para substituir REM, nos micros 
das tinhas TRS-80 e TRS-Color. 

Quando o programa for listado ou 
impresso, as abreviacoes aparecerao por 
extenso (com excecao do apostrofo). As- 
sim, embora isso poupe tempo de digi- 
tacao, nao leva a nenhuma economia de 
memoria, e nem faz com que o seu pro- 
grama rode mats rapido. 



COMO ECONOMIZAR MEMORIA 



Outra razao para se encurtar um pro- 
grama e economizar espaco da memb- 
ria. Essa economia e" decisiva em progra- 




mas muito longos. 

Uma das formas de economizar bytes 
extras e utilizar nomes de variaveis com 
uma let ra apenas. Esse procedimento 
poupa nao s6 tempo de digitacao, co- 
mo tambem espaco de membria. Mas e 
sempre bom manter uma lista sobre o 
que faz cada variavel,, ja que fica mais 
dificil usar cbdigos mnemonicos para 
variaveis com apenas uma letra. 

Outra maneira de se encurtar um pro- 
grama e omitir espacos em branco en- 
tre comandos, variaveis e operadores. 
Isso nao se aplica ao ZX-81 e ao Spec- 
trum (nesses micros, os espacos apare- 
cem automaticamente). Em outros mi- 
cros a omissao de espacos e uma medi- 
da extrema, pois ela torna muito dificil 
a leitura do programa. Uma regra, con- 
tudo, deve ser sempre observada: voce" 
deve deixar um espaco entre uma varia- 
vel e o tnfeiode uma palavra-chave. As- 
sim, uma linha como essa: 

IF A - B AND B - C THEN PRINT 
"OK" 

pode se tornar mais curta desse modo: 

IFA-B ANDB-C THENPRINT"OK" 

Mas, se voce" escreveu: 



IF A-BAND B-C THENPRINT'OK" 

o computador pensara que existe uma 
variavel chamada BAND, e, como ela 
nao existe, podera ocorrer um erro du- 
rante a execucao do programa (ou,. em 
alguns micros, uma mensagem de erro). 

Um terceiro modo de economizar 
membria consiste em combinar varias 
deelaragoes em uma linica linha. Na 
maioria dos computadores descritos 
aqui (linhas TRS-80, TRS-Color, MSX, 
Sinclair Spectrum, Apple II e TK-2000), 
o sinal de separacao entre os comandos 
contidos em uma mesma linha e : (dois 
pontos). Apenas nos micros compatfveis 
com a linha ZX-81 isso nao e possivel. 
Mas esse recurso torna os programas 
mais diffceis de serem entendidos. 

A maioria dos metodos aqui indica- 
dos tende a acelerar ligeiramente a ve- 
locidade de execucao de um programa. 
Outro truque para se nuclear a execu- 
gao de lacos FOR... NEXT e omitir a va- 
riavel que vem apbs o NEXT (isso nao 
e permitido em alguns micros). Se o pro- 
grama tiver varios lacos aninhados, ter- 
minando na mesma linha, podemos co- 
locar um linico NEXT; por exemplo: 
NEXT A, B, C (apenas certos micros 
aceitam esta sintaxe). 



ABAIXO 
DE ZERO 



Durante a programaeao cm codigo de 
maquina, e comura nos depararmos 
com niimeros negativos, como por 
exemplo quando, tiuma programagao de 
jogos, somos levados a movimentar fi- 
guras em determinadas direcoes ao Ion- 
go da tela. 

Como todos os outros, esses niime- 
ros devem ser codificados em bytes de 
oito bits, pois os computadores com uni- 
dades de memoria desse tipo nao con- 
tarn com outros recursos para armaze- 
nagem de atgarismos. Isto, porem, le- 
vanta urn problema: como voce ja viu, 
urn byte pode representar qualquer nii- 
mero de a 255, ou 00000000 a 
11111111, em binario. Mas isso esgota 
todas as possibilidades do binario de oi- 
to bits, ja que nao existe espaco para si- 
nais de mais ( + ) ou menos (-},e nenhu- 
ma maneira pela qual eles possam ser re- 
presentados nessa gama de valores. Em 
aritmetica simples, se voce subtrair I de 
obtera - 1 .Agora, tente o mesmo cal- 
culo em binario com oito bits: 

00000000 
-1 



muni 



Esse resultado levara voce, ao chcgar 
ao oitavo bit a esquerda, a pedir "em- 
prestado" um do proximo lugar a es- 
querda; mas quando o niimero binario 
e limitado a oito bits nao existe nada a 
esquerda a ser emprestado. Do mesmo 
modo, se voce subtrair outro 1 (para ob- 
ter— 2 em aritmetica simples), obtera 
1 1 1 1 1 1 1 0. Mas se 11 1 1 1 1 1 1 em binario 
equivale a 255 em decimal, entao 
1111 II 10 deveraser 254! 

Imagine agora, por exemplo, o que 
poderia acontecer em decimal se voce 
nao tivesse mais que tres digitos ou "co- 
lunas" para colocar seus niimeros. Ve- 
ja o que acontece se voce tentar acres- 
centar 999 a 100, quando tais limitacoes 
sao impostas: 

100 
+ 999 



(1)099 



Diretamente relacionados com o 
funcionamento interno do 
computador, binaries e hexadecimais 
apresentam problemas quando e 
precise representar numeros negativos. 



Em nossa aritmetica de tres digitos, sim- 
plesmente nao existe espaco para ele. 
Assim, o resultado dessa adicao, em um 
sistema de tres digitos, sera 99, que e 
exatamente o que voce obtera se subtrair 
1 de 100! 

Do mesmo modo, em um sistema de- 
cimal de tres digitos, o resultado da so- 
ma de 998 mais 100 seria o mesmo da 
subtracao de 100 menos 2. E subtrair 998 
de 100 seria o mesmo que adicionar 2. 

Recapitulando: a mesma sine de al- 
garismos em um byte de oito bits pode 
representar um niimero negativo e um 
positive. Qualquer operacao torna-se 
confusa e dificil diante disso. 

O que voce pode fazer em relacao a 
isso? Bern, na maioria das aplicacdes em 
computadores domesticos, nao ha com 
que se preocupar: os enderecos de mem6- 
ria e codigos de operacao, ambos repre- 
sentados em binario, serao sempre con- 
siderados positivos. As linicas vezes em 
que voce encontrara numeros negativos 
serao com dados ou com os chamados 
saltos retativos, os quais sao codigos de 
maquina aproximadamente equivalentes 
as declaracoes GOTO do BASIC. 



COMO "VIRAR" OS BITS 



O processo utilizado em binario pa- 
ra se obter, a partir de um niimero po- 
sitive o seu valor negativo, e conheci- 
do como complemento de 2. Na reali- 
dade, essa tecnica nao tern uma base teo- 
rica muito bem fundamentada; o impor- 
tante t que ela funciona. 

Para se obter o valor negativo de um 
niimero binario, dnecessario ''virar" os 
bits e acrescentar 1 . "Virar os bits" sig- 
nifica transformar os bits 1 em e aque- 
les que tern valor 0, em J . 

No programa seguinte mostramos co- 
mo isso funciona. Note que, quando o 
binario for limitado a oito digitos, seu 
equivalente em hexadecimal preenchera 
exatamente dois dfgitos. Isso significa 
que o hexadecimal equivalente ao com- 
plemento de 2 tambem atuara como o 
negativo. 



a 

«0 numero um, na unidade de milhar, 
teve que ser coiocado entre parenteses. 10 CLS 



20 PRINT66, -NUMEROS NEGATIVOS"; 

30 PRINTS40, STRINGS! 16, CHRS (131 

)) i 

40 PRINTe6S,"DEC"TAB(15) "BIN'TA 

B(2B)"HEX" 

50 PRINT§226."+"TAB{29) "+" ; 

60 PRINTS 361. "COMPLEMENTO DE 2" 

70 PRINTg483,"0 

00"; 
80 FOR J-1474 TO 1502: POKE J. 13 
1 :NEXT 

90 FOR J-l TO 7 
100 FOR K-l TO 24 
110 POKE 1123+K+32*J.17S 
120 NEXT K.J 
130 PR1NT@174,"BITS"; 
140 PRINT§313,"+1" ; 
150 AT-AT AND 255 
160 T-AT: IF T-128 THEN SOUND 3 
0.2 

170 LN-3: GOSUB 280: GOSUB 310 
180 T-T+256*(T?127) :GOSUB 340 
190 T-255-T;LN-7;GOSUB 280 
200 T-T+1:T-T AND 255 : LN-1 3 : GOS 
l/B 280: GOSUB 310 
210 T-T+256*(T>12B) :GOSUB 340 
220 INS=INK£Y$:IF INSO"B" AND" 
INSO" " AND INSOCHRS(13) THEN 

220 
230 IF 1NS-"B" THEN AT-AT-l:GOT 
150 

240 IF IN$-" ■ THEN AT-AT+l:GOT 
O 150 

250 PRINT @ 384,;; INPUT AT 
260 PRINT 6384." "; 
270 GOTO 150 
280 FOR X-0 TO 7 

290 IF-(T AND 2*X) THEN PRINT S 
LN*32+23-X*2+(X>3) . "1" ;ELSE PRI 
NT gLN*32+23-X*2+{X>3) , "0" ; 
300 NEXT: RETURN 
310 IF T<16 THEN AS-"0" ELSE A$ 

320 PRINT §LN*32+29,AS+HEX$(T) ; 

330 RETURN 

340 PRINT §32*LN,MID${" "+-STR 

$CT) ,LEN(STftsm>) ; 

350 RETURN 



10 PRINT AT 0.7; "NUMEROS NEGA 

TIVOS" 

20 PRINT AT 2,1 ; "DEC" ;TAB 14; 

"BIN"; TAB 28; "HEX" 

30 LET AS-" 

If 

40 FOR N-7 TO 13 

50 PRINT AT N.6; INVERSE 1;A$ 

60 NEXT N 

70 PRINT AT 8. 14; "BITS"; 



QUANDO SAO NECESSARIOS 

NUMEROS NEGATIVOS 

A CONVERSAO DE NUMERQS 

NEGATIVOS 

ACONVENCAODOSINAL 




BRIGHT 1;AT 12.21;"+1" 

80 PRINT AT 10 ( 3i"+";AT 10,30 

90 PRINT AT 15,7;"COMPLEMENTO 
DE 2" 

95 LET C-Q 
100 LET DD=-C; DIM A(B) 
110 PRINT AT 4,0;" " ; AT 4,4 
-LEN STRS C;C 

115 POKE 23608, C: LET E-PEEK 
23608: LET Z-E: GOSUB 300: 
PRINT AT 4, 29; AS 
120 PRINT AT 17,0;" ™ ; AT 1 7 
,4-LEN STR$ DD;DD 
130 LET D-128: LET CC-E 



140 FOR N=l TO 8: LET A(N)-0 

150 IF CC-D>=0 THEN LET A(N)- 

1 : LET CC-CC-D 

160 PRINT BRIGHT 1;AT 4,6+2*N 

;A(N);AT 1 . 6+2*N ; 1~A (N) 

170 LET D-D/2: NEXT N 

180 POKE 23608, DD: LET DD-PEEK 

23608; LET D-128 

185 LET Z-DD: GOSUB 300: PRINT 

AT 17, 29? AS 

190 FOR N-l TO 8: LET B-0 : IF 

DD-D>-=0 THEN LET B-l: LET DD- 

DD-D 

200 PRINT BRIGHT 1 ; AT 17,6+2* 

N;B: LET D-D/2: NEXT N 



210 PRINT AT 16,0;" 

. . n 

220 PRINT AT 19,3;"0 

00" 

230 IF INKEYS-"" THEN GOTO 

230 
240 LET A$-INKEYS: IF AS-" " 
THEN LET C-C+l : IF C-123 THEN 

LET C— 128: SOUND 1,1 
250 IF A$-"B" OR A$="b" THEN 
LET C-C-l: IF C--129 THEN LET 
C-127: SOUND 1,1 
260 IF A$<>" " AND A$0"B" AND 
A$<>"b" THEN INPUT "?"jC 
270 GOTO 100 




,, 



COMO CONTAR EM COMPUTES 

Se quisermos contar qualquer coisa 
em urn computador, devemos comegar 
sempre do zero e avancar dai para ci- 
ma. Por exemplo, as locagfies de me- 
m6ria sio numeradas em hexadecimal, 
de 0000 a FFFF. 

mesmo acontece com os bits em 
urn byte. Quando numeramos os bits, 
comecamos a partir da direita, com o 
bit numero 0, e aumentamos a conta- 
gem a medida que nos deslocamos pa- 
ra a esquerda. 

Assim, o dfgito binario da extreme 
direita e chamado de bit 0. que esta 
imediatamente a sua esquerda e cha- 
mado de bit 1 , o seguinte de bit 2 e as- 
sim por diante, ate o bit 7 — aquale que 
esta na extrema esquerda de urn byte. 

Assim como em poiftica, os termos 
"a direita" e "a esquerda" podem, em 
certos casos, parecer um pouco con- 
fusos, especsalmente quando lidamos 
com numeros de dois bytes que podem 
ser armazenados de cima para baixo, 
ou de baixo para cima, dependendo de 
como o computador opera. 

Em "computSs" correto lou seja, na 
linguagem universal dos computado- 
res), esses numeros sao chamados de 
valor mats significative} — isto e, com 
o endereco mais alto — e valor menos 
Significative . 

Dessa forma, se voce estiver arma- 
zenando um endereco — 3D8E, por 
exemplo — 3D e o byte mais signifi- 
cativo, enquanto BE 6 o byte menos 
significativo. 

Os computadores das linhas Sin- 
clair, TRS-80 e MSX eolocam o byte 
manor ou| menos significativo — 8E, no 
exemplo acima — na locacao de me- 
mo>ia mais baixa. byte alto, que va- 
le 100 em hexa (ou 256 em decimal), 
3D neste caso, e colocado com o en- 
dereco mais alto na locagao de memo- 
ria (isto 6, o endereco de mem6ria que 
recebeu 8E. mais 1). 

Existe uma unica excec§o para es- 
ta convencao de baixo/alto: os nume- 
ros da iinha BASIC sao armazenados 
em forma inversa. 

TRS-Color, por sua vez, armaze- 
na todos os numeros de dots bytes na 
locagao de mem6ria mais baixa com o 
byte atto, e armazena o byte baixo na 
locagao de memdria mais alta. 

A mesma terminologia se aplica aos 
bits. bit mais significativo no nume- 
ro binario 01010101, o bit 7, e 0, e o 
bit menos significativo, o bit 0, 6 o 1. 



300 LET ZA-INT (2/16) : LET ZB- 

Z-C16*2A) 

310 LET ZA-ZA+48: IF ZA>57 

THEN LET ZA-ZA+7 

320 LET ZB-ZB+48: IF ZB>57 

THEN LET ZB-ZB+7 

330 LET AS-CHRS ZA: LET AS-AS+ 

CHRS ZB: RETURN 



10 PRINT AT 0,7i "NUMEROS NEGAT 

IUOS" 

20 PRINT AT 21,1; "DEC" ; TAB 14; 

"BIN";TAB 28; "HEX" 

30 LET AS-" 

H 

40 FOR N-7 TO 13 

50 PRINT AT N,6;AS 

60 NEXT N 

70 PRINT AT 8. 14; "BITS" ;AT 12, 

21;"+1" 

80 PRINT AT 10,3;"+";AT 10,30; 

" + " 

90 PRINT AT 1S,8;"C0MPLEMENT0 

DE 2" 

95 LET C-0 
100 LET DD--C 
105 DIM A(8) 

110 PRINT AT 4,0;" " ; AT 4,4- 
LEN STRS C;C 

115 POKE 16507, C 

116 LET E-PEEK 16507 

117 LET Z-E 

118 GOSUB 300 

119 PRINT AT 4, 29; AS 

120 PRINT AT 17,0;" " ;AT 17, 
4-LEN STRS DDiDD 

130 LET D-128 

135 LET CC-E 

140 FOR N-l TO 8 

145 LET A(N)-0 

150 IF CC-D>-0 THEN LET A(N)-1 

155 IF CC-D>-0 THEN LET CC-CC-D 

160 PRINT AT 4,6+2*N;A(N) ;AT 10 

,6+2*N;l-A(N) 

170 LET D-D/2 

175 NEXT N 

180 POKE 16507, DD 

181 LET DD-PEEK 16507 

182 LET D-128 

185 LET Z-DD 

186 GOSUB 300 

187 PRINT AT 17,29;AS 

190 FOR N-l TO 8 

191 LET B-0 

192 IF DD-D>-0 THEN LET B=l 

193 IF DD-D>-0 THEN LET DD=DD-D 
200 PRINT AT 17,6+2*N;B 

205 LET D-D/2 

207 NEXT N 

210 PRINT AT 18,0;" 



220 PRINT AT 19,3; "0 

00" 

2 30 IF INKEYS-"" THEN GOTO 230 

240 LET AS-=INKE¥S 

242 IF AS-"F" THEN LET C-C+l 

244 IF A$-"F" AND C-128 THEN 

LET C-128 

250 IF AS""B" THEN LET C-C-l 

255 IF AS-"B" AND C--129 THEN 



LET C-127 

260 IF AS<>"F" AND ASO"B" THEN 

INPUT C 

2 70 GOTO 100 

300 LET ZA-INT (Z/16) 
305 LET ZB-Z-(16*ZA) 
310 LET ZA-ZA+28 
320 LET ZB-ZB+28 

3 30 LET AS-CHRS ZA 
340 LET AS»AS+CHRS 2B 
350 RETURN 



fM 



10 SCREEN 1:KEY OFF 

14 "POKE BASE (6) +27, 166 



20 


LOCATE 


6,0; 


PRINT ' 


'Niimeros ne 


gativos" ; 








30 


LOCATE 


6,1: 


PRINT ST1 


223) ; 








40 


LOCATE 


3,3: 


PRINT ' 


DEC" ;TAB(1 


31 


"BIN";TAB(24) ; "HE> 


["; 


SO 


LOCATE 

' + "; 
LOCATE 


1,10 


: PRINT 


"+":TAB(27 


) : 

60 


6,17 


: PRINT 


"Conplemen 


to 


de 2"; 








70 


LOCATE 


0,21 


! PRINT 














00 "; 




B0 


FOR J-2 TO 


30 




84 


VPOKE BASE(5)+J+1S 


*32,223 


88 


NEXT 








90 


FOR J-l TO 


7 




10C 


FOR K- 


■1 TO 


24 




11C 
9 


VPOKE 


BAEE(5)+19S+K+32*J,21 



120 NEXT K,J 

130 LOCATE 12, 11: PRINT "BITS"; 

140 LOCATE 23,12:PRINT "+1" 

150 AT-AT AND 255 

160 T-AT 

165 IF T-128 THEN SOUND 7,56:S0 

UND 8, 15: SOUND l.l:FORI-l TO 50 

: NEXT: SOUND 8,0 

170 LN-3:G0SUB 280 

175 GOSUB 310 

180 T-T+256MT>127) 

IBS GOSUB 340 

190 T-25S-T:LN-7: GOSUB 280 

200 T-T+1:T-T AND 255:LN-13 

205 GOSUB 280: GOSUB 310 

210 T-T+256*(T>128) 

215 GOSUB 340 

220 INS-INKEY$:IF INSO"B" AND 

INSO" " AND INSOCHRSU3) THEN 

220 
230 IF IN$-"B" THEN AT-AT-1;G0T 
150 

240 IF INS-" * THEN AT-AT+l:GOT 
O 150 

250 LOCATE 0, 
260 LOCATE 0, 
270 GOTO 150 
280 FOR X-0 TO 7 
290 IF -(T AND 2"X) THEN VPOKE 
BASE(5)+LN*32+87~X*2+ CX>3) ,ASC( 
"1") ELSE VPOKE BASE(5)+LN*32+8 
7-X*2+(X>3) ,ASC("0") 
300 NEXT: RETURN 
310 IF T<16 THEN AS-"0" ELSE AS 

320 LOCATE 25 , LN+2 : PRINT A$+HEX 
S(T) ; 



,20: INPUT AT 
,20: PRINT " 




330 RETURN 

340 LOCATE 0,lN+2: PRINT MIDS (" 

"+STHS<T) , LEN(STRS(T))) ; 
350 RETURN 

Um niimero binario ou hexadecimal 
pode, na maior parte das vezes, atuar 
perfeitamente bem, seja ele um numero 
positive ou negativo. Mas, as vezes, vo- 
ce precisa saber se um numero e positi- 
ve ou negative 

Quando se quer que um programa de 
um salto, em codigo de maquina, e pre- 
ciso especificar quantos bytes deve ter 
o salto a ser dado pelo computador: com 
um numero positive, no caso do salto 
para a Create; com um numero negati- 
vo, para saltar para tras. 

O que o computador faz e olhar pa- 
ra o primeiro bit do numero binario e 
decidir se o numero e negativo ou posi- 
tivo. Se o primeiro bit for 1, o compu- 
tador o tomara como negativo. Se for 
0, ele serd considerado como positive 

Conhecido como convengao de sinal 
esse processo indica que, ao inves de to- 
mar niimeros binarios de oito bits para 



Na eonvencao de sinal, o niimero 128 
(ou 10000000, em bindrio) atua como set* 
prtiprio negativo e o computador recomeca 
a con tar de forma ascendents. 



representar a serie de a 255, o compu- 
tador a trata como - 128 a +127. 

No programa de conversao de com- 
plemento de 2, voce notara que o com- 
putador se atrapalha quando chega ao 
128. Isso se deve a que o 128, ou seja, 
10000000 em binlrio, ou 80 em hexa, 
atua como o seu propria negativo (voce 
pode verificar por si mesmo: -10000000 
+ 10000000 = ( 1)00000000 ouO em bi- 
nario de oito bits, do mesmo mode que 
80 + 80 = (1)00 ou em hexa de dots 
digitos. E 128- 128 - em decimal). 

Portanto, qual deles € positivo ou ne- 
gativo? O 10000000 tern o 1 em seu pri- 
meiro bit; o computador o trata como 
um numero negativo: - 128. Poroutro la- 
do, o — ou 00000000 — tern o em 
seu primeiro bit; desse modo, o compu- 
tador o trata como positive 




Quando posso utilizar o sistema deci- 
mal codificado em binario (BCD)? 

O BCD e empregado para imprimir 
numeros na tela, ou transmiti-los rapi- 
damente. Para codtf icar um decimal de 
dois digitos em um byte em binario, co- 
tocamos o dfgito a direita nos ultimos 
quatro bits significativos (um " meio 
byte") e o dfgito a esquerda dentro do 
meio byte mais significative. 

Existem dezesseis digitos que po- 
dem ser eodificados em quatro bits bi- 
narios, BCD 6 um numero hexadeci- 
mal sem as letras A, B, C, D, E e F. 
linico problems surge quando obtemos 
um numero maior que 9 em um dos 
meios bytes. 



GRAM AC AO BASIC 10 





© VIDEO 



COMO UTILIZAR TAB COM 



PRINT 



SINAIS DE PONTUACAO 



COMO MELHORAR A EXIBI CAO 
EM TELA 



Listas, tabelas e instrucoes sao mais 
com preens ive is quando distribuidas 
pelo video de forma clara e ordenada. 
Use comandos do BASIC para isso. 

Existem muitas maneiras de se dispor 
textos na tela. Mas e importante orga- 
nizar bem a exibicao, especialmente se 
voce esta escrevendo um programa que 
outras pessoas utilizarao. 

Cada computador possui uma manei- 
ra pr6pria de posicionar o texto na te~ 
la. Algumas funcSes de posicionamen- 
to sao padronizadas para todas as va- 
riances do BASIC, independentemente 
da marca do computador (exemplo: a 
funcao TAB e os sinais de pontuacao — 
virguJas e pontos e virgulas — utilizados 
para separar os elementos de uma decla- 



racao PRINT). Entretanto, ha outros 
comandos (associados ou nao ao 
PRINT) destinados a posicionar o cur- 
sor na tela por meto do enderecamento 
por linhas e colunas e que variant ampla- 
mente entre os diversos computadores: 



Comando 
PRINT AT 
PRINT @ 
LOCATE 
HTAB e VTAB 

□□5! 



Microcomputador 

Sinclair 

TRS 

MSX 

Apple 



WHOM 



PRINT "BOM DIA" 

imprimira a mensagem na proxima linha 
em branco, a partir da margem esquer- 
da da tela. 



Entretanto, existem meios para dizer 
ao computador como imprimir a men- 
sagem em uma posicao diferente: 

PRINT TAB (20) "BOA TARDE" 

A funcao TAB e usada em conjunto 
com um PRINT. O numero entre paren- 
teses especifica a coluna a partir da qual 
o texto (ou numero} que se segue sera 
impresso, Pode-se colocar tambem uma 
expressao numerica ou uma variavel. 

O resultado da expressao numerica ou 
o numero colocado como parametro po- 
dem ser fracionarios, mas o computador 
usara apenas a sua parte inteira (por 
exemplo, TAB (23, 2197) sera aproxima- 
do para 23). O numero resultante deve 
Hear entre e o numero rnaximo de co- 
lunas por linha do computador. E pos- 
sfvel tambem posicionar cada palavra se- 
paradamertte. Modifique a linha para: 





PRINT TAB<20)"B0A" TABOO}" 
TARDE" 

A primeira palavra e impressa a par- 
tir da coluna 20, e a segunda, a partir 
da coluna 30 (TAB negativo nao funcio- 
na, ou seja, nao se pode recuar posicoes 
na linha de impressao). 

Nao existe espaco em branco entre a 
palavra-chave TAB e o primeiro paren- 
tese. Alguns micros exigem ponto e 
virgula entre o TAB e o elemento que 
o segue: 

PRINT TAB (20) ;" BOA" ; 
TABOO) ; "TARDE" 



SINAIS DE PQNTUACAO 



A funcao TAB indica a coluna, nu- 
rna linha de impressao na tela, a pariir 
da qual o texto sera exibido. 

O comando PRINT emprega virgula 
e ponto e virgula (e tambem ap6strofo, 
na linha Sinclair Spectrum), para deter - 
minar o espaco entre os elementos a se- 
rem impressos. 

Quando dois elementos de uma linha 
PRINT sao separados por um ponto e 
virgula, o computador nao concede es- 
paco entre eles e: 

PRINT "TOCA- ; -DISCOS" 



imprimira TOC ADISCOS, sem separa- 
cao.Se os elementos de PRINT foremnti- 
meros, e nao cordoes alfanumericos, o 
resultado dependera do tipo de micro. 
Alguns colocarao um espaco em bran- 
co antes do mimero a ser irnpresso. 
Assim, 
PRINT "SOMA"; 25 

mostrara o resultado: SOMA 25. 

No Sinclair, entretanto, o resultado 
dessa instrucao seria: SOMA25. 

A virgula funciona como a funcao 
TAB. A cada virgula encontrada, o pro- 
grama coloca a proxima informacao a 
ser impressa numa posicao distante dez 
colunas (ou dezesseis, no Sinclair) a di- 
reita da ultima posicao inicial. Assim, 

PRINT "TOCA", "DISCOS" 

produzira: 

TOCA DISCOS. 

Em muitos casos, especialmente 
quando ha colunas de niimeros ou de 
palavras, a informagao pode ser posicio- 
nada muito mais facilmente e com mui- 
to menos esforgo de sua parte, exigin- 
do o emprego da funcao TAB apenas de 
vez em quando. Digite e execute as li- 
nhas a seguir, para ter uma ideia de co- 
mo isso funciona: 



10 PRINT "01234567890123456679 
901234567B90" 
20 PRINT 9;9 
30 PRINT 9,9 

A linha 10 numera as colunas no to- 
po da tela. Uma virgula separa os nii- 
meros em "campos", cada um com dcz 
colunas de extensao (dezesseis, no Sin- 
clair). Agora tente o mesmo programa 
com textos (isto e, cordoes alfanumeri- 
cos), acrescentando essas linhas: 

40 LET A3--A" 

50 PRINT ASi AS 
60 PRINT AS. AS 

Normalmente, costumamos alinhar 
palavras a esquerda e niimeros a direi- 
ta, mas os comput adores descritos aqui 
nao fazem isto automaticamente. 

O ponto e virgula e essencial para 
que a funcao TAB funcione corretamen- 
te, pois uma virgula apos um TAB pro- 
vocara o deslocamento para uma nova 
posicao de tabulacao. O ponto e virgula 
tambem e litil no final de uma declara- 
gao PRINT. Sua funcao, neste caso, e 
manter o cursor de impressao na tela, 
na ultima posicao impressa, de taJ for- 
ma que o prdximo comando PRINT en- 
contrado pelo programa comece a inv 
primir nessa posicao, sem mudar de li- 
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nha na tela. O programa a seguir impri- 
me todo o alfabeto utllizando urn laco 
FOR.. -NEXT para incrementar de urn 
em um os codigos ASCII para os carac- 
teres de A a Z. 

20 FOR C-65 TO 90 
30 PRINT CHRS(C) i 
4 NEXT C 

(Para micros da linha Sinclair ZX-8I , 
substitua a linha 20 por FOR C = 38 TO 
63, pois eles usam um c6dtgo diferente 
do ASCII.) Se voce nao colocar o pon- 
to e virgula ao final da linha 30, cada 
letra sera impressa em uma linha sepa- 
rada. Os sinais de pontuacao e o TAB 
oferecem tantas maneiras de se exibir 
textos na tela que voce encontrara cer- 
tamente combinacoes adequadas aos 
sens prdprios programa s. 



As linhas Sinclair contain com tres 
declaracoes para posicionamento de tex- 
tos na tela: PRINT, PRINT AT e 
PRINT TAB. A dedaracao PRINT so 
zinha imprime uma linha em branco (ve- 
ja mais adiante). 

A tela do Sinclair tern 22 linhas, nu- 
meradas de a 21 , a partir do topo da 
tela. Cada linha, por sua vez, tern 32 
"colunas", ou posi<;6es, para oscarac- 
teres, numerados de a 31, a partir da 
margem esquerda da tela. O comando 
PRINT AT indica onde o texto a ser im- 



presso vai comecar: os numeros (ou ex- 
pressoes) que seguem AT indicant a li- 
nha e a coluna; as linhas: 

PRINT AT 0,0,"*' 
PRINT AT 21.0,"*" 
PRINT AT 0.31,"*" 
PRINT AT 21,31."*" 

imprimirao um asterisco em cada canto 
do video. Se voce quiser imprimir mais 
de um caractere em uma locacao da te- 
la, o computador imprirnira o primeiro 
caractere onde voce del ei miliar e o res- 
tante nas demais posicoes da mesma 
linha. 

PRINT AT 10.12;"COMPRIMENTO" 

coloca o "C" na linha 10, coluna 12, e 
asoutras letras em 10,13 , 10,14.... etc., 
ate" 10,17. 

Outro recurso interessante do PRINT 
AT e que uma linha PRINT pode con- 
ter varios AT, separados por pontos e 
virgulas. Por exemplo, a linha nsada pa- 
ra imprimir quatro asteriscos poderia ser 
assim: 

PRINT AT 0,0, "*"; AT 21,0,"*"; 
AT 0,31,"*"i AT 21,31,"*" 

PRINT TAB 

No Sinclair, a inslrucao PRINT TAB 
funciona, em muitos casos, do mesmo 
modo que PRINT AT. Contudo, exis- 
tem duas diferencas: nao e preciso es- 
pecificar a linha; e nao se pode utilizar 
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l tilizado tanlo pelo comando PR/NT como pelo INPUT, o ponto e virgula serve para 

controlar o modo pelo qual a informactio e exibida na Ida. Cada item 

e* colocado no video, segulndo- imediatamente o item anterior na mesma linha. 



o PRINT TAB para escrever (nem para 
apagar) por cima de qualquer material 
na tela. Se voce" entrar um novo PRINT 

TAB na antiga postcao, a impressao se- 
ra realizada em uma linha abaixo da an- 
terior. Agora, digite: 

PRINT AT 0.15;"*" 

PRINT AT 0,15;"?" 

Limpe a tela (CLS) e tente isso: 

PRINT TAB 15;"*"; 
PRINT TAB 15;"?"; 

Comparado com o PRINT AT, o 

PRINT TAB economiza trabalho de di- 
gitacao e isenta o operador da tarefa de 
lembrar-se dos numeros de linhas a me- 
dida que vai prosseguindo. 

O programa a seguir permite que vo- 
ce digite as notas dos alunos de uma 
classe e as disponha ordenadamente na 
tela, usando uma serie de funcoes TAB; 
alem disso, ele calcula a media das no- 
tas (digite tudo em letras maiusculas, pa- 
ra micros da linha ZX-81): 

10 PRINT "NOME'rTAB 12;"PR0VA" 
iTAB IB; "ORAL"; TAB 23;"EXAME"; 

TAB 29; "MED" 

20 PRINT AT 20,0; "Nome ?" 

30 INPUT nS 

35 PRINT AT 20,0; "Prova?" 

40 INPUT np 

45 PRINT AT 20,0; "Oral ?" 

50 INPUT no 

55 PRINT AT 20 , ; "Exane?" 

60 INPUT ne 

70 LET m-[{np+no*2}/3+ne}/2 

90 PRINT NS;TAB 14;np; TAB 19; 

no; TAB 24 ; ne ; TAB 29; n 

90 PRINT 

10 PAUSE 200 

110 GOTO 20 

As linhas PRINT, usadas para pedir 
os dados iniciais de cada aluno, sao po- 
sicionadas com o AT na penultima linha 
da tela. 

Ao ser rodado pela primeira vez, o 
programa limpa a tela e coloca na pri- 
meira linha as identificacoes correspon- 
dentes as colunas de dados. Em segui- 
da ele perguntara: "NOME?*". Digite o 
name do aluno. Depois, perguntara su- 
cessivamente as notas da prova, do exa- 
me oral e do exame final. Entre nume- 
ros inteiros ou, no maximo, com uma 
decimal. Em seguida o programa mos- 
trara esses dados de entrada, juntamente 
com a media. Adicione as linhas: 

75 LET M-INT(M*10)/10 

76 LET NS-NS(TO 13) 

O primeiro problema e que a media eal- 
culada pela ultima parte da linha 80 pode 
corner muitas casas decimais, Isto € resolvi- 
do pela linha 75, por meio de uma opera- 
cao de airedondamento do resultado: mul- 
tiplicamos a media (M) por 10, tomamos o 
valor inteiro do resultado e o dividimos por 



10. Vejamos a nuktia 7,654321: multiplica- 
da por 10, ficaria 76,54321; seu inteiro e 76 
que; dividido por 10, e 7,6. 

Outro problema £ que a primeira no- 
ta (NP) sera mostrada na tela a partir 
da coluna 14, Isto quer dizer que o no- 
me do aluno nao deve ter mais do que 
treze caracteres. A funcao TO na linha 
77 "amputa" o nome do aluno de mo- 
do a caber nesse espaco. Para interrom- 
per o programa sem limpar a tela, pres- 
sione <CAPS SHIFT> junto com 
< BREAK > (no ZX-8 1 , pressione ape- 
nas < BREAK > ). A linha 100 Ihe dara 
tempo de fazer isso. 

O programa abaixo oferece o esbo- 
co de uma eontabilidade domestica: 

10 PRINT "N0ME";TAB 10; "ITEM" ; 

TAB Z6;"PREC0": 

15 LET total=0 

20 FOR 1-1 TO 8 

35 PRINT AT 20, 0; "Data ?" 

40 INPUT dS 

45 PRINT AT 20,0; "Item ?" 

50 INPUT iS 

55 PRINT AT 20 , ; "Preco?" 

60 INPUT p 

70 LET total=total+p 

80 PRINT dS:TA8 10;iS;TAB 26 ; j> 

90 PRINT 

100 NEXT I 

110 PRINT TAB 26;" " 

120 PRINT TAB 10 ; "TOTAL" ; TAB 
26; total 

Use corretamente a pontuacao, com 
a declaracao PRINT TAB, Normalmen- 
te, dois pontos e virgulas sao utilizados 
apos PRINT TAB: 

ID FOR n-1 TO 21 

20 FOR t-0 TO 24 STEP 6 

-10 PR TNT TAB t ; n ; 

4 NEXT t 

50 NEXT ti 

Quando tiver rodado o programa, 
modifique a linha 30 para: 




ja fomo usar nm ponto e virgula para 
preencher a tela com uma mensagem 
(exemplo rodado no Spectrum). 



10 PRINT" ■ennageia 
20 GOTO 10 




Os ap6strofus instniem a compulador a colocar o item seguinte em uma nova linha, 

quando a miquina estiver impossibilitada de fazer isso automaticamente. 

Nem todos os compuladores, entretanto, contam com esse recurso de pontuacao. 



30 PRINT TAB t.iii 

... e entao compare-a com essa: 

30 PRINT TAB t;n 

Urn ponto e virgula significa: 
"Aproxime bem a proxima palavra, sem 
nenhum espaco"; uma virgula significa: 
"Comece a prdxima palavra no inicio 
da coluna ou da coluna 15"; uma de- 
claracao PRINT TAB precisa sempre de 
dois pontos e virgulas (do contrario, a 
desordem se instalara na tela). 



Dili 




A maneira mais facil de exibir uma 
mensagem na tela e: 

PRINT "OLA" 

Se PRINT "OLA" estiver na ultima 
linha da tela, esta rolara para cima, de 
modo a dar espaco a mensagem (nao se 
esqueca de digitar as aspas). Limpe a te- 
la antes e tudo ficara claro: 

10 CLS 

20 PRINT "OLA" 

Agora "OLA" aparece no topo a es- 
querda. Acrescente essa linha e rode o 
programa: 

30 PRINT "ADEUS" 

"ADEUS" aparecera abaixo de 
"OLA". Se quiser uma linha branca en- 
tre "OLA" e "ADEUS", acrescente: 

25 PRINT 



Agora voce ja sabe como suas men- 
sagens sao organizadas verticalmente na 
tela, mas ainda nao sabe como elas apa- 
recerao em cada linha. Suponha que vo- 
ce queira exibir "OLA" no meio da li- 
nha. O micro tern uma funcao (TAB) 
que coloca a mensagem no ponto da li- 
nha que voce quiser. Acrescente essa li- 
nha e rode o programa: 

40 PRINT TAB (15); "BOA TAHDEI" 

Os espacos em cada linha sao nume- 
rados de a 31 no TRS-Color, e de 
a 63 no TRS-80. Entao, a mensagem na 
linha 40 comecara no espaco mimero 15. 
Nao deixe espaco entre TAB e o parfin- 
tese, no TRS-Color; senao, (15) sera tra- 
tado como variavel e TAB nao funcio- 
nara. Veja como TAB calcula o quadra- 
do, cubo, a raiz quadrada e o in verso 
dos mimeros de 1 a 12: 

10 CLS 

20 PRINT "NUMERO";TAB(B) :"CUBO" 

; TAB (14) ; "QUAD."; TAB (21) ;"RAIZ* 

; TAB (2 7) ;"INyER" 

30 FOR J-l TO 12 

40 PRINT TAB(l) ;J;TAB(7) ;J*J*J; 

TAB CI 3) ;J*J;TAB(20) : INT (SQR{J) * 

100D)/1Q-00;TAB(26) ; INT (1000/ J) / 

1000 

50 NEXT J 

Um problema que deve ser resolvtdo 
neste programa, com um pouco de arit- 
rnetica elementar, £ que a raiz quadra- 
da e o inverse do mimero J, calculados 
pela ultima parte da linha 40, podem ter 
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muitas casas decimals, lsso & resolvido 
por meio de uma operacao de arredon- 
damento do resultado para comer ape- 
nas uma easa decimal: muttiplicamos a 
raiz quadrada por 1000, tomamos o va- 
lor inteiro do resultado, e o dividimos 
por 1000. Vejamos, por exemplo, a raiz 
7,654321 : multiplicada por 1000 ficaria 
7654,321; seu inteiro e 7654 que, divi- 
dido por 1000, ficaria 7,654. Se voce 
quiser imprimir em urn lugar especifico 
na tela deve utilizar PRINT® ("PRINT 
arroba") em vez de PRINT TAB. 



El 

10 CLS 

20 PRINT e461."BAIX0" 

30 PRINT ©77, "ALTO" 

40 PRINT 6257, "ESQUERDA" 

50 PRINT 6280,'DIREITA" 

D 

10 CLS 

20 PRINT 6925,-BAIXO" 

30 PRINT §30, "ALTO" 

40 PRINT §448. "ESQUERDA" 

50 PRINT @502,"DIREITA" 

Os numeros apos PRINT® se refe- 
rent as locacoes de tela (numeradas da 
esquerda para a direka, no TRS). O 
TRS-80 tem posicoes numeradas de a 
1023, e o TRS-Color (32 colunas) de 
a 511 . Eis urn programa que calcula as 
notas dos alunos de uma classe: 
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5 


CLS 






10 


PRINT 


"NOME" 


; TAB (12) ;"PR0VA" 


;TABfl8) 


"ORAL" 


; TAB(23) : 


"EXAME" ; TAB (29) 


i "MED" 


20 


PRINT 


£448. " 


NOME " ; 


30 


INPUT 


N$ 




35 


PRINT 


&448," 


PROVA" ; 


40 


INPUT 


NP 




45 


PRINT 


§448," 


ORAL " i 


50 


INPUT 


NO 




55 


PRINT 


§448, " 


EXAME" ; 


60 


INPUT 


US 




70 


LET M= 


' ( (NP+NO*2) /3+NE) /2 


80 


PHINT 


NS:TABC14) ;NP;TAB(19) ; 


NO 


TAB(24) ;NE; 


TAB (29) ;M 


90 


PRINT 






IOC 


FOR : 


t-1 TO 


400:NEXT I 


lit 


GOTO 


20 
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CLS 






10 


PRINT 


"NOME 


* ;TAB(12) j "PROVA 


;TARU8) 


i "ORAL 


'; TAB(23) j 


"EXAME" : 


TAB (29 


;"MED" 


20 


PRINT 


6896, "NOME "; 


30 


INPUT 


NS 




35 


PRINT 


6896,'PROVA"; 




Urn oulro exemplo de tela mostra a 
atuacao do aposlrofn em uma 
linlia de programa para o Spectrum: 

10 PRINT'raenaaflem" 
20 GOTO 10 



40 INPUT NP 

45 PRINT €896, "ORAL "; 

50 INPUT NO 

55 PRINT 6896, " EXAME " ; 

60 INPUT NE 

70 LET M= ( (NP+NO*2)/3+NE) /2 

80 PRINT N$;TABC14) ;NP;TAB(19) ; 

NO; TAB(24) ;NE;TAB(29) ;M 

90 PRINT 

100 FOR 1=1 TO 400:NEXT I 

110 GOTO 20 

A linha 20 exibe os cabecalhos das 
colunas. As linhas 40 a 70 limpam uma 
linha da tela e perguntam pelos dados 
necessarios (PRINT® posiciona a linha 
que pede a informacao na penultima li- 
nha da tela). A linha 80 tabula as infor- 
macoes, e a 90 calcula a media. A va- 
riavel PA faz a maquina checar se a te- 
la foi preenchida. 



P0NTUACA0 



As virgulas e os pomos e vfrgulas 
controlam a posieao do cursor. Agora 
digite: 

10 CLS 

20 PRINT" O CURSOR RETORNARA" 

30 PRINT'SEM O PONTO-E-VIRGULA" 

40 PRINT'MAS COM O PONTO- E- 

VIRGULA " j 

50 PRINT'ACONTECE ISTO" 

Urn ponto e virgula ao final de uma 
linha PRINT obriga o cursor a perma- 
necer onde estava quando terminou de 
imprimir. Acrescente essas linhas; 

60 PRINT"E QUE TAL" , 
70 PRINT-USAR" , 
80 PR I NT" VIRGULAS". 
90 PRINT"?" 

No TRS-Color: uma virgula no fim 
de um PRINT faz o cursor saltar para 
a outra metade da tela. TRS-80: cada 



virgula encontrada tabula para a proxi- 
ma posigao). 



Os controfes de cursor (declaracao 
LOCATE), a funcao TAB e o coman- 
do PRINT com sinais de pontuacao ser- 
vem para melhorar a aparencia das exi- 
bigoes na tela do MSX. A maneira mais 
facil de mostrar uma mensagem e: 

PRINT "BOM DIA!" 

O "BOM DIA" aparecera a esquerda 
da tela na pr6xima linha disponi'vel. Se 
PRINT "BOM DIA" estiver na ultima 
linha da tela, esta rolara para cima, de 
modo a dar espaco a mensagem. Nao se 
esqueca dc digitar as aspas, ou obtera 
uma mensagem de erro. O resultado do 
comando acima ficara mais claro se vo- 
ce limpar a tela antes: 

10 CLS 

20 PRINT"BOM DIA!" 



A FUNCAO TAB 



De codas as instrucoes de posiciona- 
menio do cursor, a funcao TAB e, cer- 
tamente, a mais utilizada. Ela se com- 
porta, na tela, como o recurso de tabu- 
lacao das maquinas de escrever, posicio- 
nando o cursor alguns espacos a partir 
da borda esquerda da area de texlo da 
tela. Sua forma pode ser: 

30 PRINTTABC15) "BOA TARDE ! * 

Voce pode colocar, se quiser, um 
ponto e virgula depois do parentese, 
mas isso nao e necessario. Nao deve 
existir espaco entre TAB e seu argumen- 
to entre parenteses, cujo valor esta no 
ponto inicial do cordao impresso. 

Funcoes TAB multiplas podem ser 
urilizadas para posicionar varias obser- 
vacoes em cada linha da tela. 

30 PRINTTABU0)"BOA" TAB(20)"TA 
RDEI" 

Neste caso, B e impresso na coluna 
10, e T, na 20 (o valor do argumento 
sempre se refere a distancia da borda es- 
querda da area de texto). 

TAB e a abreviacao de "tabular". 
Veja no programa a seguir como essa 
funcao pode ser titil (ela calcula o qua- 
drado, o cubo, a raiz quadrada e o in- 
verse dos numeros de 1 a 12): 

10 CLS 

20 PRINT"NdMERO"TAB(10)"OUADRAD 

0"TAB(20)"CUBO"TAB{30)"40 POT" 

30 FORJ-1TO20 

40 PRINTJ;TAB(10)J*J;TAB(20) J*J 

*J;TAB(30) J*J*J*J 

50 NEXT 



Ao rodar o programa, voce vera uma 
tabela de niimeros sendo montada. To- 
da vez que o programa passar pelo la- 
co, uma outra linha de niimeros sera exi- 
bida na tela (TAB permite colocar cada 
niimero na coluna correta). 



POSICIONF. CURSOR 



Suponhamos que voce queira impri- 
mir era um tugar especifico na tela, e 
nao apenas na proxima linha disponfveh 
Neste caso, PRINT TAB nao e o mais 
indicado: use LOCATE. 

No MSX LOCATE pode ser usada 
para controlar o posicionamento do cur- 
sor em qualquer ponto da tela, como 
ocorre com os comandos PRINT AT, 
PRINT® e HTAB/VTAB de outras 
maquinas. Tente o programa abaixo: 

10 CLS 

15 LOCATE 14.23 
20 PRINT'SUL" 
25 LOCATE 12.1 
30 PRINT'NQRTE" 
35 LOCATE 0,12 
40 PRINT"OESTE" 
45 LOCATE 25.12 
50 PRINT"L£STE" 

O programa escreve os pontos car- 
deais junto as quatro margens da tela. 

A declaracao LOCATE define, com 
dois niimeros, a proxima posicao do 
cursor da tela de textos. O primeiro ar- 
gumento deve ser um niimero entre e 
39 e diz ao computador da coluna a ser 
posicionada. O segundo, um niimero de 
a 24, indica a posicao da linha a ser 
posicionada. Os argumentos que seguem 
LOCATE podem ser niimeros, variaveis 
ou expressoes com resultado numerico; 
e somente sera considerado o seu valor 
inteiro (nao fracionario) para o calculo 
da posicao. 

Assim, para posicionar uma declara- 
cao PRINT em um ponto escolhido, es- 
tabeleca a posicao X (para coluna) e Y 
(para carreira) e coloque no programa 
um LOCATE antes do PRINT. 



C0M0 POSICIONAR ENTRADAS 



As entradas de dados atraves do eo- 
mando INPUT podem ser posicionadas 
da mesma forma que as mensagens que 
usam o comando PRINT: 

10 CLS 

20 LOCATE 10,10: INPUT"SEU NOME" 

:NS 

30 LOCATE 12,22: PRINT "OLA. " 

:NS:"!" 

Esse programa imprimira a primeira 
instrucao na coluna 10 e na linha 10, 
orientando o usuario com uma mensa- 



gem seguida de um ponto de interroga- 
cao, para efetuar uma entrada de dados 
com o INPUT. Qualquer coisa que seja 
digttada sera armazenada na variavel 
N$. A linha 30 apenas imprime o nome, 
desta vez na coluna 12 da linha 22. O 
LOCATE nao precisa aparecer necessa- 
riamente na mesma linha que o INPUT 
e o PRINT. Eis aqui um programa que 
utiliza tanto LOCATE quanto PRINT 
TAB e que serve para calcular e exibir 
as notas dos alunos de uma classe: 

10 CLS:KEYOFF 

20 PRINT"NOME"TABU0)"NOTA 1"TA 

B(20)"NOTA 2"TAB( 30) "MEDIA" 

25 F0RX-1TO15 

30 LOCATED, 22; INPUT"NOME ";NS 

40 LOCATE0, 22:INPUT"N0TA 1" ;N1 

50 LOCATED. 22 :INPUT"NQTA 2";N2 

60 LOCATED, X : PRINTNS ; TAB U0)N1 ; 

TAB (20) N2; TAB (30) (N1+N2J/2 

70 NEXT 

A linha 20 exibe os cabecalhos das 
colunas no topo da tela. As linhas 30 a 
50 perguntam pelos dados necessarios. 
LOCATE e neeessario para posicionar 
a linha que pede a informacao na pentil- 
lima linha da tela; sua nao inclusao de- 
sorganizaria a tabela que esta sendo 
montada na parte de cima. A linha 60 
tabula a informacao que voce acabou de 
fornecer a maquina e calcula a media. 



P0NTUACA0 



O uso correto dos sinais de pontua- 
cao do PRINT e importante quando se 
esta exibindo informacoes na tela. As 
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Neste cxemplo, igualmenle produzido a 
pari ir da tela do Spectrum, a 
virgula imprimira cm colunas, Assim: 

10 PRINT "rnensagem" 
20 GOTO 10 

Os computadores das linhas TRS-Color, 
MSX, TRS-80 e Apple II contain com um 
maior niimero de colunas disponiveis. 



virgulas e os pontos e virgulas comro- 
lam a posicao do cursor (o quadrado ou 
o sinal de sublinha que assinala onde 
aparecem os caracteres). 
10 CLS 

20 PRINT'O CURSOS HUDA DE LINHA 

30 PRINT'SEM O P0NTO-£-Vf RGULA" 
40 PRINT'MAS, COM ELE "; 
50 PRINT'TUDO MUDA!" 

Quando se inclui um ponto e virgula 
ao final de uma linha PRINT no pro- 
grama, o cursor nao retorna ao inicio da 
proxima linha: ele permanece exatamen- 
te onde estava quando terminou de im- 
primir, A proxima declaracao PRINT 
continua diretamente depois da ultima 
declaracao. Acrescente essas linhas ao 
programa e rode-o: 

60 PRINT 

7 PRINT "E QUE TAL" , 

80 PRINT"USAR VIRGULAS?", 

90 PRINT" E VER", 

100 PRINT"0 QUE ACONTECE?" 



HEQI 



Voce provavelmente ja conhece este 
comando: 

PRINT "BOM DIA!" 

O seu computador imprimira a men- 
sagem na primeira linha disponivel, co- 
mecando no limite esquerdo da tela. Se 
voce digitar o programa: 



10 
20 



HOME 
PRINT 



"BOM DIA! 



vera que a tela sera apagada e que a sua 
rnensagem aparecera na primeira linha, 
como se tivesse dado uma folha de pa- 
pel em branco ao computador. 

Mas e possivel fazer com que a men* 
sagem apareca numa posicao diferente. 
Adicione essa linha: 

30 PRINT TABt 15) "BOA TARDEJ" 

A rnensagem aparece central izada na 
tela. A primeira letra foi colocada na co- 
luna 15 da linha de impressao. A tela de 
textos do Apple II tern 24 linhas de qua- 
renta colunas de targura, cada. Voce 
tambem pode usar mais que um TAB 
por linha: 

40 PRINT TAB( 10) "DIA"; TABt 
20)"TARDE"; TAB ( 30>"NOITE" 

E se voce quiser pular linhas? E fa- 
cil: experimente adicionar as linhas abai- 
xo ao seu programa: 

25 PRINT 
35 PRINT 

Um comando PRINT sem nada de- 
pois significa simplesmente uma linha 
em branco na tela. 



I 




Nas declarators PRINT e INPUT, as virgulas indicam que a informacao sera exibida em 
campos. O ZX-81, o Spectrum e o TRS-Color tem dois campos de de/esseis colunas; 
o MSX e o Apple II, Ires campos de oilo colunas; ja o TRS-80 con la com qualm campos. 



HTAB E VTAB 



O Apple II tem outro sistema para 
posicionar mensagens na tela. 



10 HOME 
30 HTAB 15 



PRINT "BOA TARDE' 



Observe que o efeito e semelhante ao 
do PRINT TAB. Acrescente a linha a 
seguir e rode o programa novamente; 

2 VTAB 15 

A sua mensagem esta agora no cen- 
tro da tela. Com esses dois comandos, 
HTAB {abreviatura de horizontal tabu- 
lation) e VTAB (vertical tabulation), 
voce pode colocar o cursor (e suas men- 
sagens) em qualquer lugar da tela. 



TABULE AS ENTRADAS 



As entradas de dados atraves do IN- 
PUT podem ser posicionadas da mesma 
forma que as mensagens com PRINT: 



que seja digitada sera armazenada na 
variavel IN$. A linha 30 imprime o no- 
me, desta vez na coluna 12 da linha 22. 
A ordem em que VTAB e HTAB apa- 
recem no programa nao e importante. 
Se voce nao quiser urn ponto de inter- 
rogacao, omita-o da linha 20. 

INPUT"ENTRE CUSTO EM C23 : " ; 
CUSTO 

Urn ponto de interrogacao prejudica- 
ria a clareza da tela. O programa abai- 
xo serve para calcular e exibir as notas 
dos aiunos de uma classe: 



10 HOME 
20 INPUT 
30 HOME : 
"."MEDIA- 
40 FOR J 



■QUANTOS ALUNOS7 * ; A 
PRINT "N0TA1"."N0TA2 



1 TO A 



50 VTAB 21: INPUT "NOTAl? 



;N1 



60 VTAB 21: INPUT "N0TA2? ";N2 



HTAB 10: INPUT "SE 



HTAB 12: PRINT "OL 



10 HOME 
20 VTAB 10: 
U NOME? " rNS 
30 VTAB 22: 

A , ' ; NS i " ! " 

A primeira instrucao sera impressa na 
coiuna 10 e na linha 10, oriemando o 
usuario com uma mensagem, seguida de 
urn ponto de interrogacao, para entrar 
dados com o INPUT. Qualquer coisa 



70 VTAB J + 
+ N2) / 2 

80 NEXT 



3: PRINT N1.N2, CN1 



A linha 20 exibe os cabegalhos das 
colunas no topo da tela. As linhas 40 a 
70 limpam uma linha e perguntam pe- 
ios dados necessarios. O HTAB e o 
VTAB antes do INPUT sao necessarios 
para posicionar a linha que pede a in- 
formacao na penultima linha da tela. 

A linha 80 tabula a informacao que 
voce acabou de fornecer a maquina, e 



a linha 90 cakula a media. 

A media das notas pode dar um re- 
sultado com muitas casas decimals (uma 
dizima periodica, porexemplo). Ora, es- 
se resuhado nao caberia na linha de te- 
la do Apple II, extravasando para a li- 
nha seguinte e "estragando" o aspecto 
da tela, lsso pode ser resolvido por meio 
de uma operacao de arredondamento 
para que o resultado contenha apenas 
uma casa decimal: multiplicamos a raiz 
quadrada por 1000, lomamos o vaJor in- 
teiro do resultado, e o dividimos por 
1000. Vejamos, por exemplo, a media 
7,654321: multiplicada por 1000 ficaria 
7654,321; seu inteiro e 7654 que divi- 
dido por 1000 ficaria 7,654. Se voce qui- 
ser um resultado com duas casas deci- 
mals, ao inves de tres, multiplique e di- 
vida por 100, Substitua a linha: 

70 VTAB J + 3: PRINT N1.N2, 
INT((Nl+N2)/2/10)*10 



P0NTUACA0 



Em BASIC, a pontuacao oferece tres 
possibilidades: a virgula, o ponto e 
virgula e a ausencia de pontua v ao. O 
ponto e vi'rgula faz com que o cursor 
nao mude de posicao ap6s imprimir 
uma mensagem na tela, o que resulta em 
uma justaposicao, se varias delas forem 
impressas em seqiiencia: 



10 HOME 

20 A - 10:B - 20:C 

30 PRINT A;B;C 



- 30 



A virgula produz um efeito bem di- 
ferente. Tente adicionar essa linha e ve- 
ja o que acontece: 

40 PRINT A,B,C 

A tela, neste caso, e dividida em tres 
colunas de tabulacao automatica e tu- 
do que for mostrado na tela obedecera 
a essa tabulacao, exceto se algum dado 
exceder o tamanho da coluna. 

Neste programa mostramos como a 
tabulacao automatica com a virgula po- 
de ser util (ele calcula o quadrado e o 
cubo dos niimeros de 1 a 20): 



10 


HOME 










20 


PRINT " 


NUHERO" , 


"QUADR" , "CUB 


0" 












25 


PRINT 










30 


FOR J - 


1 


TO 20 






40 


PRINT J 


, J 


* J, J 


* J 


* J 


50 


NEXT 










Voce vera 


uma tabela de 


niimeros 



sendo montada. Toda vez que o progra- 
ma passar pelo laco uma outra linha de 
niimeros sera exibida na tela. A utiliza- 
cao do TAB permitira que voce coloque 
cada mimero na coluna correta. 



MMACAODEJOGOS 



llllllll 




COMO DESENHAR UM 



LABIRINTO ALEATORIO 



DDFDOL 



DUAS MANEIRAS DE TORNAR 



JOGO MAIS DIFICIL 



DESCUBRA TESOURO 




Se voce gosta de enfrentar desafios, 
aprenda a tornar mais compiicados 
seus jogos de labirinto, incorporando 
a eles niveis crescentes de 
dificuldade. E veja quanto tempo leva 
para encontrar um tesouro oculto no 
esconderijo de um sanguinatio pirata. 



Muitos programas pedem que se es- 
colha um m'vel de dificuldade, antes de 
comecar o jogo. Essa exigencia permite 
que tanto os iniciantes quanto os espe- 
cialistas possarn ulilizar o mesmo jogo, 
sera que este se tome exeessivamente fa- 



cil ou dificil. Existem muilas maneiras 
de se introduzir niveis de dificuldade em 
um jogo, dependendo da sua natureza. 
Por exemplo: podemos mudar o mime- 
ro de inimigos enfrentados pelo joga- 
dor; desenvolver a acao em diferentes 
velocidades; conceder maior ou menor 
tempo para o jogo; variar os problemas 
a serem encontrados pelo jogador, e as- 
sim por dianie. 

Desta vez, vamos aprender a incor- 
porar niveis de dificuldade a um progra- 
ma de jogo de labirinto. O jogo esco- 
Ihido emprega uma entre duas maneiras 
possiveis de se produzir niveis de difi- 
culdade — o metodo a ser uttlizado em 
detaihe dependera do modelo de seu 



computador. O jogo nao envolve ape- 
nas a tentattva de se achar o caminho 
at raves do labirinto, mas tambem uma 
limitacao no tempo de que dispoe o jo- 
gador para guiar um homenzinho ate 
um tesouro desenhado em algum lugar 
do labirinto. Nao apresentaremos aqui 
uma versao do programa para micro- 
computadores da linha ZX-81, pois o jo- 
go ficaria exeessivamente lento. Tam- 
bem nao sera apresentada versao para 
micros da linha TRS-80, devido a baixa 
resolucao grafica do video desses mode- 
los. 

Existem basicamente duas formas de 
aumentar a dificuldade de resolucao de 
um labirinto: ou se altera o limite de 



1SJ 



tempo, ou se varia a complexidade do 
labirinto. A razio pela qual devemos es- 
colher metodos diversos, de acordo com 
o tipo do computador, tern a ver com 
a maneira como o labirinto e produzi- 
do. Esse exemplo mostra que voce pre- 
cisa decidir o caminho a seguir, quart- 
do quiser inventar jogos com diferentes 
niveis de dificuldade. 



AS VIDAS 



Uma das maneiras de tomar mais ex- 
citante urn jogo de labirinto consiste em 
impor algum tipo de penalidade ao jo- 
gador que esgota sen tempo sem encon- 
trar o tesouro. Pode-se, por exemplo, 
fazer com que ele perca aiguns pontos 
na contagem; mas a penalidade mais co- 
mum e obriga-lo a perder uma "vida". 

Nesse jogo daremos ires "vidas" ao 
jogador: se ele nao achar o tesouro den- 
tro do limite de tempo, em tres tentati- 
vas, o jogo terminara. 



LABIRINTOS ALEATORIOS 



O jogo e baseado em uma sub-rotina 
de producao de labirintos aleatorios (ou 
seja, de desenho gerado ao acaso). E urn 
programa muito interessante, pois dese- 
nha um labirinto totalmente diferente de 
cada vez, evitando assim que voce tenha 
de projetar uma serie enorme desses de- 
senhos. J a mostramos, em um artigo an- 
terior, como projetar labirintos, utili- 
zando linhas DATA para incorporar o 
seu desenho ao programa. Imagine, en- 
tio, como seria complicado incluir va- 
rios labirintos ao programa, usando es~ 
sa tecuica. 

A geracao aleat6ria de labirintos e 
muito mais facil do que isto, embora 
apresente algumas dificuldades comple- 
mentares. Uma maneira obvia de 
projeta-los, por exemplo, seria desenhar 
blocos graficos aleatoriamente na tela. 
O problema, neste caso, e que nada ga- 
rante que se formem caminhos interio- 
res entre os blocos; ou seja, pode nao 
surgir um verdadeiro labirinto. Assim, 
caso escolhesse esse metodo, vqo3 teria 
que encontrar maneiras de checar a exis- 
tencia de, no minimo, uma saida. 



is* 



LABIRINTOS E CAMINHOS AO ACASO 



O melhor modo de se desenhar labi- 
rintos aieatbrios e inventar um progra- 
ms que trace caminhos ao acaso, 
incluindo-os depois no desenho final. O 
programa proposto a seguir foi desen- 
volvido de tal forma que a linha do ca- 



" minho aleatdrio fica contida no interior 
da moldura desenhada na tela. Nao e 
permit ido que a linha cruze com ela mes- 
ma. Quando o caminho aleatorio nao 
puder prosseguir, o programa fara o 
mesmo percurso de vofta. Ele faz isso 
passo a passo, examinando a area em 
torno do caminho anteriormente traga- 
do, ate encontrar espago livre para pros- 
seguir. Quando esse espago e encontra- 
do, o programa inicia um outro desvio 
no caminho aleatorio, prosseguindo por 
ele ate ser imobilizado novamente, e as- 
sim por diame, O computador continua 
tentando desenhar novos caminhos ate 
que toda a tela seja preenchida; nesse 
momento, ele volta ao ponto de partida. 

Quando o programa acaba de dese- 
nhar o labirinto, apenas um caminho li- 
vre aparece na tela; esse caminho pode 
ser facilmente disringuido, pois os des- 
vios nao sao muito compticados. O la- 
birinto tambem sera solucionavel atra- 
ves da regra da mao direita. De acordo 
com essa regra, e sempre possivel sair de 
um labirinto, seguindo-se a sua parede 
direita (ou esquerda, tanto faz, desde 
que seja sempre a mesma). Para impe- 
dir que alguem aplique a regra, basta 
construir algumas ithas no labirinto, 
obrigando o pobre jogador a ficar dan- 
do voltas sem fim. Assim, ap6s desenhar 
um labirinto, o programa traga um cer- 
to numero de blocos aleatorios que fa- 
zem com que o desenho pareca mais 
complexo, impedindo que alguem recor- 
ra a regra da mao direita. 

Uma vez digitado, guarde o progra- 
ma em fita ou disco, pois o proximo ar- 
tigo mostrara como acrescentar a ele ai- 
guns efeitos sonoros. 



O programa para os micros da linha 
Spectrum comeca estabelecendo os blo- 
cos graficos, introduzindo as variaveis 
e fazendo uma preparacao geral para 
o jogo. Digite essa secao do programa, 
mas nao a execute ainda: 

10 FOR n = TO 23: READ a: 

POKE USR "a"+n.a: NEXT n 

20 LET hs-0 

30 INPUT "Selecione nivel (1 

a 6) " ; ta 

40 LET ta-llOO-lOOna 

50 BORDER 1: PAPER 1: INK 0: 

CLS : INK 7 

60 LET 3-0; LET vidas-3 

70 PRINT BRIGHT 1; PAPER 6; 

INK 2;" SCORE RECORDE 

490 DATA 24,24,60.82.62,24,36, 
36. 127 ,65. 93, 8 5, 81, 9b, 64. 127, 
24,24,255.255.24,24.24,24 



A linha 10 define os blocos graficos 
para o jogo — um homenzinho, o tesou- 
ro e uma cruz — por meio da leitura dos 
dados na linha 490, A variavel que ar- 
mazenara o recorde — HS {high score} 
— e zerada na linha 20. 

A seguir, pede-se ao jogador para es- 
colher um nivel de dificuldade de 1 a 6 
(TA). Quanto menor for o numero, 
mais baixo sera esse nivel (e, portanto, 
mais facil sera o jogo). Voce vera que 
na linha 40 os niimeros mais baixos es- 
labelecem tempos maiores, e os niime- 
ros mais altos, tempo menores. 

As cores da tela e dos graficos sao es- 
tabelecidas na linha 50. A linha 60 zera 
o placar e atribui as tres "vidas" ao jo- 
gador. A linha 70, finalmente, exibe as 
palavras ESCORE (contagem) e RE- 
CORDE, juntamente com os espacos 
em branco para colocar os niimeros cor- 
respondentes, na tela. 



DESENHE LABIRINTO 



Agora, digite essas linhas: 



80 FOR 
n , 1 6 : 
90 FOR 
n*32,16 
: POKE 
100 LET 
110 DIM 
a(2)-- 3 
)-32 

120 POKE 
130 LET 
-J 

140 LET 
8 THEN 
56: LET 



n-22561 TO 22589: POKE 
POKE n+640, 16: NEXT n 
n-1 TO 21 : POKE 22528+ 
POKE 22S58+n*32,16 
22559+n*32,9; NEXT n 
b-22593: LET a = b 
a<4) : LET a(U— 1 : LET 
2: LET a(3)=l: LET a (4 



a, 56 

,T=tNT (RND*4) + 1 



LET Q 



150 
LET 
160 
170 
IF 



LET 
J-l 

if : 

LET 
J<5 



b-a + a(.7)*2: IF PEEK b- 
POKE b. J r POKE a+d I j) . 
a=b : GOTO 130 
J-J+l : IF j=5 THEN 



GOTO 130 
180 POKE 
190 FOR 
200 LET 
J + 2) + 
210 POKE 



<>g THEN GOTO 140 
j-PEEK a; POKE a.,!>6: 
THEN LET a-a-a(j)*2; 

Z262t>,56 
n=l TO 20 

H-22528+64* (INT tRND' , 9 
INT (RND*29)+1 

k,56: NEXT n 



A borda do labirinto e tracada pelas 
linhas 80 e 90, colocando-se o cddigo 16 
por meio de comandos POKE nas areas 
de memdria de video. Esse cddigo defi- 
ne a cor de Tundo (PAPER), gerando 
portanto uma borda constituida de blo- 
cos vermelhos. As linhas 100 a 180de- 
senham o labirinto. Nao caia na tenta- 
gao de interromper o programa e lim- 
par a tela nesse ponto. Se voce 1 fizer is- 
so, o labirinto se perdera, pois ainda esta 
arma^enado apenas no arquivo de atri- 
butos. Para completar o labirinto, as li- 
nhas 190 a 210 exibem vinte quadrados 
em posigoes aleatorias dentro do labi- 



rinto. Se urn quadrado "cair" em cima 
de uma parede, uma passagem sera au- 
tomaticamente aberta. 



COMO CRIAR UM JOGO 



A pr6xima secao do programa diz 
respeito ao jogo em si (nao tetite ainda 
rodar o programa): 



220 LET x-15: LET y-10 

230 LET tX-INT (RND*15)*2+1 

240 LET ty-INT (RND*10)*2+2 

250 PRINT BRIGHT 1; PAPER 2 

AT 0, 7; a; AT , 24 ; hs 

260 POKE 23672,0: POKE 23673 

270 PRINT FLASH 1; PAPER 3; 

INK 6;AT ty.tx;CHR$ 145 

280 PRINT INK 2; PAPER 7 ; AT 

.XjCHRS 114 

290 IF PEEK 2.1672 + 256*PEEK 

23673>ta THEN GOTO 390 



nativo atraves de letras, como foi expli- 
cado anteriormente. As linhas restantes 
(ou seja, da 300 a 380) se ocupam com 
a movimentacao do homenzinho no la- 
birinto. As linhas 320 a 350 veri ficam se 
esta sendo pressionada a tecla adequa- 
da, e se o proximo quadrado para a mo- 
vimentacao e" um caminho e nao uma 
parede. O teste utiliza o ATTR, que ja 
foi explicado anteriormente. A linha 260 
anula a ultima posicao do homenzinho 
e o exibe novamente em uma posicao di- 
ferente. A linha 370 testa se o homenzi- 
nho atingiu o tesouro. Se ele atingiu, a 
contagem de pontos e aumentada, an- 



tes de se sortear e exibir um outro tesou- 
ro a ser encontrado. 



A MORTE DO PIRATA 



A ultima secao final do programa e 
apresentada a seguir. Agora, finalmen- 
te, voce pode roda-lo. 

J90 PRINT FLASH 1: PAPER 0; 

INK 5; AT y.x;CHRS 146 

400 LET vidag-vidas-i : FOR f-1 

TO 200; NEXT f: IF Vidd3>0 

THEN GOTO 2 60 

410 IF 3>h3 THEN LET ha-s 



300 
290 
310 
LET 
320 
>-56 



IF INKEY5' 



THEN GOTO 



LET aS" 
sy=y 
IF dS-' 
THEN 



INKEYS: LET 



'«" AND ATTR 
LET X-X-l 
330 IF aS-"x" AND ATTR 
>-56 THEN LET X-X+l 
340 IF aS-"k" AND ATTR 



(y . x+1 ) 



>-56 THEN 
350 IF dS 
>-56 THEN 
360 PRINT 
y . sx ; " " ; AT 
370 IF ty=y 
GOTO 4 70 
380 i I 



LET v-y-1 
m" AND ATTR 
LET vv ^ I 
PAPFR 7; INK 2 

y.XiCW 

AN I THEN 



(Y 

(y+l 




A posicao inicial do homenzinho e es- 
labelecida pela linha 220; o homenzinho 
omeca sempre nas posicoes 15,10 no 
inicio de cada jogo. 

O tesouro 6 colocado aleatoriamen- 
te pelas linhas 230 e 240, e a linha 270 
o exibe na tela, A gama de escolha dos 
numeros aleatorios garante que o tesou- 
ro caia sempre em um caminho. 

A linha 250 exibe os valores do esco- 
re e do recurde (ambos inicialmente em 
), ao passo que a linha 260 zera 
■onometro interna por meio de dois 
OKI-, em duas iocacoes de memoria. 
A linha 290 verifica S< 
limite de tempo foi exce-' < *<=?llkjN 
dido c, sc UiQ aconteccu, pula 
para a linha 390, 

O homenzinho e exibido pela li- 
nha 280. Note que os comandos 
CHRS 144 e CHRS 145 das li 
nhas 270 e 280 sao utilizados 
para exibir os b locos grafi 
cos predefinidos para ( 
esses c6digos. O CHRS 
& empregado aqui porque e mais fad 
ser visto na listagem do programa, em- 
bora voce possa utilizar o metodo alter- 
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II 



420 PRINT BRIGHT 1; PAPER 2; 

AT 0,24; ha 

430 PRINT FLASH 1 ; AT 10,1 r" P 

reasione qualquer tecla para 

jogar <Je novo " 

440 IF INKEYSO"" THEN GOTO 

440 

450 IF INKEYS-"" THEN GOTO 

450 

460 GOTO 30 

470 LET s-3+ta-FEEK 23672+256* 

PEEK 23673: GOTO 230 

Quando o jogador perde uma "vi- 
da'\ e antes mesmo que a linha 400 sub- 
traia 1 ao total de "vidas", uma cruz 
piscante (CHRS 146) e exibida pela li- 
nha 390. Existe ainda uma pausa antes 
que o jogo retorne k linha 260, a qual 
coloca novamente o relogio em 0, de 
modo a ficar pronto para outra tentati- 
va de atingir o tesouro. Esse retorno, 
evidentemente, s6 ocorrera se o jogador 
ainda tiver mais "vidas" para usar. 

Se nao restar nenhuma "vida", a li- 
nha 410 compara o placar final com o 
ultimo recorde. O recorde regtstrado e 
alterado quando o escore for maior. Em 
ambos os casos, a linha 420 exibe o re- 
corde obtido ate o momento, 

A linha 410 e necessaria para blo- 
quear o jogo, caso jogador ainda es- 
teja pressionando uma das teclas de mo- 
vimentacao. A linha 420, por sua vez, 
bioqueia o programa ate 1 que uma nova 
pressao em qualquer tecla assinale que 
o jogador quer prosseguir. 

A linha 470 calcula o escore, logo 
ap6s o encontro do homem com o te- 
souro. O teste esta na linha 370. 



A tela de texto proporciona a manei- 
ra mais facil de se desenhar um labirin- 
to nos micros da linha TRS-Color. Mas 
os labirintos assim obtidos seriam mui- 
to simplificados por causa do grande ta- 
manho e do pequeno niimero de blocos 
graficos disponiveis. 

Em vez disso, o programa aqui pro- 
posto desenha os labirintos na tela com 
graficos de alta resoluclo. Embora seja 
mais complicado do que o que se pode 
conseguir na tela de textos, ele tern a 
vantagem de desenhar labirintos de di- 
ferentes complexidades, fornecendo as- 
sim varios nfveis de dificuldade. 

Imagine que o caminho seja forma- 
do por uma serie de blocos quadrados. 
Se voce quisesse desenhar um labirinto 
bem simples, bastaria escolher um blo- 
co grande, ao passo que, se quisesse um 
labirinto mais complexo, deveria optar 
por um bloco de menor tamanho. 

A primetra secSo do programa intro- 
duz as variaveis e prepara o computa- 



dor para desenhar labirintos aleat6rios. 
Digiteo programa, mas nao execute ain- 
da, senao voce* obtera um erro do tipo 
UL — linha indefinida — , quando o 
programa tentar executar o GOSUB 
1000 da linha 110. 

10 PMODE 4,1 

20 CLS:PRINT §193 , "NIVEL DE DIF 

ICULDADE (0-5)"; 

30 LS-INKEY$:IF L$<"0" OR LS>"5 

" THEN 30 

40 BS-12-VAULS) :NX-2*INTC.5 + 12 

6/BS) :NY-2*INT(.5+96/BS) 

50 SX-250'BS*NX:SY-190-BS*NY 

60 DIMP(NX.NY) ,A<5) ,B(5) 

70 PCLS 5: DRAW"S"+STR$(INT(8,5 

-4*VAL (L$) /5) ) +"CQBM0 , 0BR2BDNFN 

GD3NFG" 

80 GET <0,0}- (BS-1 ,BS-1) ,A,G 

90 GETU0.10)- CBS+9,BS+9) ,B,G:C 

OLOR 5,0 

100 CLSr PRINT £226 , "GERANDO LAB 

IRINTO DE NIVEL " ; L$ 

110 GOSUB 1000 

120 GOTO 120 

A linha 10 diz ao computador para 
utilizar o quarto modo grafico (PMO- 
DE 4) para todo o programa. A tela de 
alta resolucao nao e" ligada nesse esta- 
gio. A linha 20 exibe, entao, a mensa- 
gem NlVEL DE DIFICULDADE (0 - 
5). 

L$ e o nfvef que o jogador escolheu. 
O valor numerico de L$ — VAL (L$) 
na linha 40 — regula o tamanho do blo- 
co, a extensao do caminho e a compte- 
xidade do labirinto. O INKEYS na linha 
30 significa que o jogador nto precisa 
digital mais que o tinico digito em res- 
posta a pergunta, e que o programa con- 
tinua sem que ele precise pressionar 
< ENTER >. 



Na linha 40, o BS e o tamanho do 
bloco grafico, em pixels. Esse tamanho 
pode variar de sete a doze pixels. NX e 
o niimero de blocos na direcao horizon- 
tal, e NY e o niimero de blocos na dire- 
gao vertical. 

Antes de desenhar o labirinto na te- 
la, o computador calculara sua aparen- 
cia final e colocara essa informacao no 
conjunto P, o qual e dimensionado 
(DIM) na linha 60. O conjunto A con- 
tem o formato do homenzinho, e o con- 
junto B, um espaco em branco, de mo- 
do a provocar sua animacSo grafica. O 
homenzinho e desenhado pela linha 70. 
Nesse programa o homenzinho sera de- 
senhado em tamanho maior, quando o 
caminho do labirinto for mais largo, e 
menor quando for mais estreito. 

Agora que o homenzinho foi dese- 
nhado, a linha 80 o coloca no conjunto 
A por intermedio de um comando GET, 
e a linha 90 preenche o conjunto B de 
branco. Nas licoes anteriores, quando 
um espaco em branco era utilizado em 
um jogo, nao era necessario colocar na- 
da no conjunto: tinhamos apenas um 
conjunto vazio. Desta vez, e necessario 
um espaco em branco, de modo a com- 
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binar com a cor de fundo do caminho. 

O comando COLOR na linha 90 as- 
segura que o labirinto sera desenhado 
mais tarde na cor correta (de outro mo- 
do voce est aria desenhando urn labirin- 
to preto sobre urn fundo preto). 

A linha 100 diz ao jogador que o la- 
birinto esta sendo produzido; pode de- 
morar algum tempo ate o desenho apa- 
recer. 



DESENHE LABIRINTO 



Agora digite a sub-rotina de produ- 
cao do labirinto — chamada pela linha 
1 10 — e voce podera rodar o programa: 

1000 FOR J-0 TO NX:P{J,NY)-6:PC 

J,Q)-6:NEXT 

1010 FOB J-0 TO NY-2:P<0 , J)"6: P 

{NX, J) -6: NEXT 

1020 X-2:¥-2:LX-2:LY-2 

1030 J-RND(4)-1:G-J 

1040 Y-LY+2*((J-0)-{J-2)) :X-LX+ 

2*C (J-3)-(J-l)3 

1050 IF P(X.Y)-0 THEN P(X,Y)-J+ 

1:P( (X+LX)/2, (Y+LY)/2)-5:LX-X:L 

Y-Y:GOTO 1030 

1060 J-<J+1)AND 3: IF JOG THEN 

1040 
1070 J-P(LX,LY)-1:P(LX,LY)-5:IF 

J<4 THEN LX-LX"2*((J-3) -<J-1)) 
:LY-LY-2* ((J-0) - (J-2) ) : GOTO 103 


1080 FOR J-0 TO 20:P(2+2*RND((N 
X-3)/2) . l+RND(NY-3) )-5:P(l+RND( 
NX-3) ,2+2*RND((NY-3)/2) ) -5 :NEXT 
1090 SCREEN 1 . 1 : PCLS 
1100 FOR J-2 TO NX-2:FOR K-2 TO 

NY-2 
1110 IF P(J,K)-5 THEN LINE(J*BS 
+SX,K*BS+SY) - ( U+1)*BS+SX-1, (K+ 
1}*BS+SY-1) , PSET.BF 
1120 NEXT K, J: RETURN 

As linhas 1000 a 1080 "desenham" 
o labirinto na memoria do computador 
e armazenam a sua forma no conjunto 
P — cada elemento do conjunto corres- 



ponde a um bloco do labirinto. A sub- 
rotina armazena o numero 5 em P onde 
quer que exista um caminho, e o nume- 
ro 0, se existir uma parede. Uma vez que 
o labirinto tenha sido armazenado em 
P, a linha 1090 liga a tela de alta reso- 
lucao e a deixa pronta para a execucao 
do desenho. 

As linhas 1 100 e 1 120 exibem o labi- 
rinto na tela mediante a verificacao dos 
conteudos de P. Quando um 5 for en- 
contrado, um quadrado branco sera im- 
presso. 



M0VIMENT0, TES0UR0, VIDAS 




Agora voce precisa de um jogo para 
acompanhar o seu labirinto aleatorio. 
Digite a proxima secao do programa, 
mas nao o rode porque ele chamara uma 
sub-rotina que ainda nao existe. 

120 X=Z: Sf«2:tX-2:t**2rTl-«0®:tJ 
•3 

130 TIMER-0 

140 Xl-1+RND^NX- 3) : Yl -HRNDfNY- 

3);IF P{Xl,Yll-5 THEN PfXl.YJ')- 

1 :DRAW "S4C0BM"+STRS [SX+X1*BS)+ 

","+STR3(S¥ + ¥l*BS)+"BFP.5D5L3U3P. 

D" ELSE 140 

150 XI =X*BS+SX: Yl=Y*BS+SY 

160 PUTfXl .YD - (Xl + BS-1 .Yl+BS-1 

) A PSET 

170IF PEEK (338)=251 THEN Y = Y" 

1 

180 IF PEEK (342) =253 THEN Y = Y + 

1 

190 IF PEEK (340) -247 THEN X-X- 

1 

200 IF PEEK (338) -247 THEN X=X+ 

1 

210 IF P(X,Y)-7 THEN F»1:P(X.Y) 

-5: GOTO 2 30 

220 IF P<X,Y)<>5 THEN X-LXrY-LY 

:GOTO 170 

230 IF XOLX OR YOLY THEN PUT 

(XI, YD -{Xl+BS-1, Yl+BS-1) , B,PSE 
T:LX-X:LY-Y:FOR P-l TO 68: NEXT 
240 IF F-l THEN F-0 rSC-SC+ (TI-T 
IMER) :TI-TI-10:GOTO 130 
250 IF TIMER >TI THEN GOSUB 500 

: IF LK1 THEN 100 
260 GOTO 150 

A linha 120, que substitui a linha 1 20 
da secao anterior, contem as variaveis 
a partir das quais e calculada a posicao 
do homenzinho. X, Yea localizacao 
atual do homenzinho, e LX e LY, sua 
ultima posicao; porem, em virtude da 
largura variavel do caminho, os valores 
devem ser ligeiramente ajustados um 
pouco antes de o homenzinho aparecer 
na tela. XI e o limite de tempo para des- 
cobrir o tesouro. Esse tempo limite e de 
dezesseis segundos. Se o homenzinho 
nao tiver encontrado o tesouro, quan- 
do o tempo se esgotar, perdera uma "vi- 



da". No infcio do jogo, o jogador tern 
tres "vidas" — LI = 3. 

O cronometro interno do computa- 
dor e zerado na linha 130, antes que a 
linha 140 selecione uma posicao aleat6- 
ria para o tesouro. O elemento corres- 
pondente em P e examinado para que 
haja certeza de que nesse lugar ha um 
caminho e nao uma parede. Se o tesou- 
ro estiver em um caminho, o valor do 
conjunto sera modificado de 5 para 7. 
A ultima parte da linha desenha o tesou- 
ro no labirinto. 

A posicao do homenzinho e calcula- 
da na linha 150, levando-se em conside- 
racao a largura do caminho, que e o ta- 
manho do bloco BS. A linha 160 colo- 
ca o homenzinho em posicao. 

As linhas 170 a 220 examinam o te- 
clado por meio de comandos PEEK, de 
modo a permitir a movimentacao do pi- 
rata no labirinto. Como nao e possivel 
deixa-lo atravessar paredes, a linha 220 
o mantem dentro do caminho. A linha 
210 verifica se o tesouro foi encontra- 
do, examinando o elemento correspon- 
derate em P para o numero 7. Se o com- 
putador o achar, o "indicador de desco- 
berta" (F) sera igualado a 1. 

A linha 230 movimenta o pirata. O 
espaco em branco e colocado, com o co- 
mando PUT, sobre a ultima posicao do 
personagem, e sua localizacao atual 
torna-se a ultima posicao. 

A linha 240 calcula o escore, caso o 
tesouro tenha sido encontrado. O limi- 
te de tempo e diminuido entao de 10 se- 
gundos. O F volta ao 0, e o programa 
retorna para zerar o cronometro. O pro- 
grama continua, redesenhando o tesou- 
ro em outro lugar, deixando o pirata no 
mesmo ponto em que estava quando o 
ultimo tesouro foi encontrado. 

Caso o tesouro demore muito a ser 
encontrado, a linha 250 chamara a sub- 
rotina que se inicia na linha 500. Se, 
mesmo nao tendo achado o tesouro, o 
homenzinho ainda dispuser de algum 
tempo, a linha 260 retornara ao progra- 
ma, calculando sua nova posicao. 



A EXIBICA0 DO ESCORE 



Esta e a sub-rotina final. Ela exibira 
o escore e o numero de "vidas", depois 
que uma "vida" for perdida: 

500 CLS:SCREEN , : LI-lI-1 

510 PRINT gl06."NIVEL-";L$ 

520 IF LI>0 THEN PRINT £202. "VI 

DAS-";LI 

530 PRINT §298, "SCORE-" ; SC 

540 IF LI>0 THEN FOR J-l TO 600 

: NEXT ; TIMER-0 ; SCREEN 1,1: RETUR 

N 

550 PRINT #358, "QUER OUTRA VEZ 

(S/N)?" 
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Um pirain a procure de um fabuloso tesouro no labirinto do MSX. 



Oulro bucaneiro esplora o colorido labirinto do Spectrum. 



560 A$-INKEYS:IF ASO"S" AND AS 

<>"N" THEN 560 

570 IF AS-"S" THEN RUN 

580 END 

Agora voce pode rodar o programa. 
Se uina "vida" for perdida, o progra- 
ma religa a tela de texto — SCREEN 
0,0. A linha 500 tambem dtminui de 1 
o mimero de "vidas" restantes do joga- 
dor. 

As linhas 510 a 530 exibem o nivel de 
dificuldade, o mimero de "vidas" res- 
tantes (se o jogo continuar) e a conta- 
gem de pontos. Se ainda sobrarem al- 
gumas "vidas", a linha 540 introduzira 
uma pausa antes de zerar o cronometro, 
religando a tela de alta resolucao e re- 
tornando a sub-rotina. 

As linhas 550 e 580 perguntam se o 
jogador quer ten tar de novo, e ele ou pa- 
ra o programa ou roda novamente. O 
RUN e utilizado na linha 570 para lim- 
par P para um novo labirinto. 



A versao do programa para os micros 
da linha MSX desenha os labirintos na 
tela com graficos de alta resolucao. Em- 
bora mais complexa do que o programa 
para se desenhar na tela de textos, ela 
tern a vamagem de poder tragar labirin- 
tos de diferentes eomplexidades, forne- 
cendo assim uma variacao no nivel de 
dificuldade. 

O caminho aleat6rio e formado por 
uma serie de blocos quadrados. Se voc§ 
quisesse desenhar um labirinto bem sim- 
ples, bastaria escolher um bloco gran- 
de, ao passo que, se quisesse um labi- 
rinto mais complexo, teria que optar por 
I um bloco de menor tamanho. 



A primeira secao do programa intro- 
duz as variaveis e prepara o computa- 
dor, de um modo geral, para desenhar 
labirintos aleat6rios. Digite o programa, 
mas nao o execute ainda, pois nao apa- 
recerd nada na tela, por enquanto. 

10 screen 

20 LOCATE 2, 11: PRINT 'Nivel de 

dificuldade (0-5) ?" 

30 L$-INKEY$;IF L$<"0" OR L$>"5 

" THEN 30 

40 BS-13-VAL(L$) :NX-2*INT< . 5+12 

6/BS) :NY-2*INT(.5+96/BS) 

50 SX-250-BS*NX:SY-190-BS*NY 

60 DIM P(NX.NY) 

70 FOR 1-1 TO 8 

60 READ A,B,C:A$-AS+CHRS (A) 

84 BS-BS+CHRS (B) 

ee cs-cs+chrs<c} 

90 NEXT 

100 CLS: LOCATE 2.11 

105 PRINT "Gerando labirinto de 

nivel ";LS 
110 DATA 24,24,127,24,24,65,60, 
255 , 93 . 82 . 255 . 85 , B2 , 24 , 81 , 24 , 24 
,95.36,24,64,36,24,127 

A linha 10 diz ao computador para 
utilizar a tela de textos (SCREEN 0). A 
linha 20 exibe, entao, a rnensagerm "Ni- 
vel de dificuldade (0 - 5) ?" 

L$ e o nivel que o jogador escolheu. 
O valor numerico de LS — VAL (LS) 
na linha 40 — regula o tamanho do blo- 
co, a extensao do caminho e a comple- 
xidade do labirinto. O 1NKEYS na linha 
30 significa que o jogador nao precisa 
digitar mais que um linico digito em res- 
posta a pergunta, e que o programa con- 
linua sem que ele precise pressionar 
< ENTER >, 

Na linha 40, oBSeo tamanho do 
bloco grafico, em pixels. O tamanho po- 
de variar de oito a doze pixels. NX e o 
mimero de blocos na direcao horizon- 



tal, e NY e o niimero de blocos na dire- 
cao vertical. 

Antes de desenhar o labirinto na te- 
la, o computador calculara sua aparen- 
cia final e colocara essa informacao no 
conjunto P, que e dimensionado (DIM) 
na linha 60. A variave! AS contem o for- 
mato do homenzinho, e a variivel BS, 
uma cruz, para assinalar sua "morte'*. 
A variave] C$ contem a imagem do te- 
souro. Os c6digos graficos correspon- 
dentes sao lidos em DATA, na linha 
1 10, e concatenados nas variaveis alfa- 
numericas mencionadas. Posteriormen- 
te, esses blocos graficos serao colocados 
dentro de sprites. 

O computador limpa a tela de textos 
na linha 100, e esta informs que o labi- 
rinto esta sendo produzido. 



DESENHE LABIRINTO 



Agora, digite a parte do programa 
que produz o labirinto, e rode-o para ver 
o resultado: 

1000 FOR J-0 TO NX 

1005 P(J,NY)-6:P(J,0)-6 

1008 NEXT 

1010 FOR J-0 TO NY-2 

1014 P{0, J)-6;P{NX, J}-6 

1018 NEXT 

1020 X-2:Y-2:LX-2:LY-2 

1030 J-INT(RND(1)*4) :G-J 

1040 Y-LY+2* ( (J-0) - (J-2) ) :X-LX+ 

2*((J-3)-tJ-l)» 

1050 IF P{X,Y)-0 THEN P(X.Y)-J+ 

l:P((X+LX)/2. (Y+LY)/2)-5rLX-X:L 

Y-Y:GOTO 1030 

1060 J-(J+1) AND 3: IF JOG THEN 

1040 
1070 J-P(LX,LY)-l:P(LX,LY)-5 
1075 IF J<4 THEN LX-LX-2* ( ( J-3) 
-<J-D) :LY-LY-2*((J-0)-(J-2)) :G 



mini 



ROGRAMACAODEJOGOS 



OTO 1030 

1080 FOR J-0 TO 20 

1082 F(2+2*INT(RND(l)*{(NX-3)/2 

)) ,l+INTfRND(l)*(KY-3)) ) -5 

1085 P(l + INT<RNDU)*(NX-3)) ,2+2 

*INT<RND<1>*( (NY-3)/2)))-5 

1088 NEXT 

1090 SCREEN 2.0 

1092 COLOR 1,10,4 

1094 SPRITES (1)- AS 

1098 SPRITES (0)- BS 

1099 SPRITES (2] -CS 

1100 FOR J-2 TO NX-2 
1105 FOR K-2 TO NX-2 

1110 IF P{J,K)-5 THEN LINE (J*B 
S+SX,K*BS+SY)-{ CJ+1)*BS+SX-1. <K 
+1)*BS+SY-1) ,C,BF 
1130 NEXT K 
1140 NEXT J 

As linhas 1000 a 1080 "desenham" 
o labirinto na memoria do computador 
e armazenam sua forma no conjunto P 



(cada elemento do conjunto correspon- 
de a um bloco do labirinto), A sub- 
rotina armazenao numero 5 em P onde 
quer que exista um caminho, e o nume- 
ro faz o mesmo, caso exista uma pa- 
rede. 

Uma vez que o labirinto tenha sido 
armazenado em P, a linha 1090 liga a 
tela de alia resolucao, e a linha 1092 de- 
fine as cores de frente e de fundo do de- 
senho. As linhas 1094 a 1099 definem os 
sprites correspondences aos biocos gra- 
ficos montados na secao anterior do 
programs. Note que o sprite do bloco 
em branco tern prioridade sobre o blo- 
co do homenzinho. As linhas 1100 a 
1 140exibem o labirinto na tela median- 
te a verificacao das conteudos de P. 
Quando um 5 forencontrado, um qua- 




drado sera impresso (comando LINE de 
bloco cheio) na linha 1110. 



MONTE J0G0 



Agora voce precisa de um jogo para 
divertir-se com o labirinto aleatorio. Di- 
gite a pr6xima secao do programa; mas 
nao o rode, pois ele chamara uma sub- 
rotina que ainda nao existe. 

1200 X-2:Y-2:LX-2:LY-2 

1210 TI-800:LI-3 

1215 R-RND(-TIME) 

1220 TIMI-0 

1230 Xl-l+INT(RND(l)*(NX-3)) 

1240 YI-1+INTCRNDU)* (NY-3) ) 

1250 IF P(Xl,Yl)-5 THEN P(X1,¥1 

)-7:PUT SPRITE 2 , ISX+X1*BS , SY+Y 

1*BS) ,10 ELSE 1230 

1255 X1-X*BS+SX: Y1-Y*BS+SY 

1260 PUT SPRITE l,(Xl.Yl) r l 

1270 TS-INKEY$:IF TS-"" THEN 12 



1280 IF ASC(TS)-28 THEN X-X+l 
1290 IF ASC(T$)-29 THEN X-X-l 
1300 IF ASC(TS)-30 THEN Y-Y-l 
1310 IF ASC(T$)-31 THEN Y-Y+l 
1320 IF P(X,Y)-7 THEN F-1:P(X,Y 

GOTO 1330 
1325 IF P(X,Y)05 THEN X-LX;Y-L 
Y;GOTO 1270 

1330 IF XOLX OR YOLY THEN LX- 
X:LY-Y 

1340 IF F-l THEN F-0 : SC-SC+ (TI- 
TIME) :TI-TI-10:GOT0 1220 
1350 IF TIME>TI THEN GOSUB 1500 
:IF LK1 THEN 1000 
1360 GOTO 1255 

A linha 1200 contem as variaveis a 
partir das quais a posicao do homenzi- 
nho e ealculada. X e Y sao as coorde- 
nadas da posicao atual do homenzinho, 
e LX e LY, da ultima posicao. Tl e o 
limite de tempo para descobrir o tesou- 
ro, e LI, o mimero de "vidas" de que 

ogador dispoe. O tempo limite e de 

cerca de dezesseis segundos; se este 

se esgotar sem que o tesouro tenha 

sjdo encontrado, o homenzinho perdc- 

ra uma "vida'\ No inicio, o joga- 

dor tern tres "vidas". 

A linha 1215 introduz o gerador de 
mimeros aleatbrios, usando como "se- 
mente" o valor armazenado no crono- 
metro interno, naquele instante. O cro- 
nometro interno do computador e zera- 
do na linha 1220, antes que as linhas 
1230 e 1240 selecionem uma posicao 
ateatoria para o tesouro. O elemento 
correspondents em P e examinado na li- 
nha 1250, para verificar se nesse lugar 
ha um caminho ou uma parede. Se hou- 
ver um caminho, o valor do conjunto se- 
ra modificado de 5 paia 7. A ultima par- 
te da linha desenha o tesouro no labi- 
rinto. 







A posicao do pirata e" calculada na li- 
nha 1255, levando-se em conta a largu- 
ra do caminho, que e o tamanho do blo- 
co BS. A linha 1260 coloca o homenzi- 
nho na tela, naquela posicao. 

As Iinhas 1270 a 1310 examinam o te- 
clado atraves do coraando INKEYS, de 
modo a permitir a movimentacao con- 
tinua do homenzinho, no labirinto, co- 
mandado pelas teclas de controle do cur- 
sor. A linha 1325 faz com que ele se 
mantenha dentro do caminho, de mo- 
do a impedi-to de atravessar alguma pa- 
rede. A linha 1320 checa se o tesouro foi 
encontrado, examinando o elemento 
correspondente em P para o numero 7. 
Quando o tesouro e encontrado, o ' 'indi- 
cador de descoberta" (F) e igualado a I , 

A linha 1330 promo ve a movimenta- 
cao do homenzinho, fazendo com que 
a localizacao atual torne-se a ultima po- 
sicao. Como o homenzinho e definido 
por interrnedio de urn sprite, nao e" ne- 
cessario apaga-lo do lugar onde estava, 
como cm outros computadores. 

A linha 1340 calculara o escore, se o 
tesouro for encontrado. O limite de tem- 
po e* diminuido de 10 segundos. O F re- 
torna ao zero e o programa volta a li- 



nha 1220 para zerar o cronometro. O 
programa continua, redesenhando o te- 
souro em outro lugar, mas deixando o 
pirata no ponto em que ele estava quan- 
do o ultimo tesouro foi encontrado. 

Se o jogador demorar muito para 
achar o tesouro, a linha 1350 chamara 
a sub-rotina que se inicia na linha 1500 
(ela sera apresentada a seguir). Essa sub- 
rotina diminui uma "vida" do jogador; 
caso tenha se esgotado o numero de 
"existencias", o programa retornara ao 
comeco (linha 1OO0), Se o homenzinho 
nao tiver achado o tesouro e ainda dis- 
puser de algum tempo, a linha 1 360 fa- 
ra o programa voltar a linha 1255, per- 
mitindo que sua nova posicao seja cal- 
culada. 



EXIBA ESCORE 



A sub-rotina final exibira o escore e 
o numero de "vidas" restantes depois 
que uma "vida" for perdida: 

1500 li-li-1 

1505 put sprite 0,{x1,y1),1 

150 7 open "grp:" fop. output as 

#1 



1510 PSET(0 f Q) ,10:PRINT 41.TABC 

3) ; "VIDAS: ";LI;TABt5) ; "SCORE - 

* " SC 

1520 FOR J-l TO 6000:NEXT 

1525 LINECO,0.)-(255,7) ,10,BF 

1530 IF LI>0 THEN PUT SPRITE 0, 

(-20,-20) :CLOSE #1 :TIME-0 :RETUR 

N 

1540 PSET(O.O) ,4:PRINT 41," Cue 

r jogar novamente ? (S/N)" 

1550 A$-1NKEYS;IF ASO'S" AND A 

S«*N" THEN 1S50 

1560 IF AS-"S" THEN RUN 

1570 END 

Rode o programa: se uma "vida" for 
perdida, ele diminuira de 1 o numero de 
"existencias" restantes (linha 1500). A 
linha 1505 assinala a "morte" do per- 
sonagem. 

As Iinhas 1510 a 1530 exibem o nivel 
de dificuldade, o numero de "vidas" 
restantes e a contagem de pontos. Caso 
ainda sobrem "vidas", a linha 1530 co- 
locara o crondmetro em 0. 

As Iinhas 1540 a 1560 perguntam se 
o jogador quer tentar de novo; depen- 
dendo da resposta, elas param o progra- 
ma ou o rodam novamente. O RUN e 
utilizado na linha 1 560, limpando P pa- 
ra um novo labirinto. 



UMA TiCNICA DE ANIMA^AO DE BLOCOS GRAFICOS NOS 
MICROCOMPUTADORES DA LINHA TRS-80. 



Os micros da linha TP.S-80, por serem 
de tecnologia mais antiga do que os da 
nova geracao de computadores pessoais 
(Sinclair Spectrum, MSX, TRS-Coiar), 
contam com menores recursos para a de- 
finicao de blocos graficos (UDG, ou user 
= defined graphics,/ alim de terem uma 
resolucdo grdfica na tela (128 x 48 pixels) 
insufieiente para a programacdo de efei- 
tos visuais mais sofisticados. 

Existem, porim, formas de conlornar 
esse problema. Assim, para definir e ani- 
mar blocos grdficos no TRS-80, utiliza- 
mos tres conceitos bdsicos de programa- 
cdo: como incorporar caracteres grd/icos 
a varidveis alfanumiricas (cordoes); co- 
mo usar os caracteres de controle do cur- 
sor para definir figuras complexas, e co- 
mo movimentar blocos graficos por meio 
do comando PRINT®. 

Como a utilizacao desse comando jd 
foi exp/icada, abordaremos aqui apenas 
a licnica de definicdo de figuras com- 
plexas. 

Imagine que queremos definir um dis- 
co voador. Para montar afiguraem uma 
unica varidvel alfanum&ica (por exem- 
ph, D$) concatenamos os caracteres gra- 
ficos que deierminam a primeira linha 
(veja no manual do seu computador os 
cddigos graficos correspondentes): 

AS - CHRS(128}+CHRS(186)+ 
CHR$U76)+CHRS(186) + 
CHRSQ44) 



Acrescentamos a seguir a linha do 
meio dafigura, Mas, se nos limitarmos 
a concatenar os prdximos caracteres gra- 
ficos ao DS jd definido, na hora de colo- 
car o disco voador na tela por meio de 
um PRINT®, o desenho saird errado (em 
vez de se posicionarem uma embalxo da 
outra, as duas Iinhas ficardo fundidas em 
uma unica I in ha} . Para evitar isso, fetnos 
quefazer com que o cursor se posicione 
no ponto certo, abaixo da primeira linha 
do grdfico. Para isso, usamos os cddigos 
de controle: CHR$(26), que tern o efeito 
de descer o cursor do PRINT de uma po- 
sicao na tela, e CHR$(24), que recua o 
cursor, sem limpeza. 

Dessa for ma „ para posicionar o cur- 
sor corretamente na linha seguinte do grd- 
fico,, temos que descer uma posicao com 
o cursor e recuar cinco posi^oes. Para 
economizer tempo de digitapao, podemos 
definir um corddo BS, que incorpora to- 
dos esses C'HRS: 

BS - CHRS(26}+STRING$<5,24) 

E agora AS fica definido assim: 

AS - CHRS(128)+CHRS (186}+ 
CKRS(176)+CHRS(186>+ 
CHR$ {144) -t-BS+CHR$ (170) + 
STRING$(4, 171) 

Finalmente, podemos completar a fi- 
gura, adkionando a terceira linha de blo- 



cos graficos, e repetindo o truque de des- 
cer uma posicao e recuar o cursor cinco 
posi^des: 

AS - CHRSU28)+CHRS<ie6J + 
CHRS(176>+CHR$US6) + 
CHRS (144) +BS+CHRS (170) + 
STRING${4, 171J+BS+ 
CHRS(128)+STRING${3,131)+ 
CHRSU29) 

O bloco grdfico estd definido. Para de- 
senhar, de uma vez so, esse bloco em um 
ponto qualquer da tela (por exemplo, na 
posicao N), basta dar o comando: 

PRINTeN.AS; 

Para animar o bloco grdfico contido 
em AS, variamos o valor de N, 
calocando-o dentro de um laco de pro- 
grama. Se o valor de N for aumentado 
ou diminuido de 64, em cada repeticao 
do laco, a movimentacdo se dard no sen- 
tido vertical. Por outro lado, se esse va- 
lor for aumentado ou diminuido de /, o 
movimento sefard no sentido horizontal. 

Para apagar o bloco grdfico do lugar 
onde estava, e necessdrio colocar por ci- 
ma dele um terceiro bloco grdfico previa- 
mente definido, con ten do apenas tres Ii- 
nhas de cinco caracteres em branco, con- 
catenadaspor meio do corddo de contro- 
le, B$, definido acima. 



CONCURSQUMPUT 



Sorted 



5 microcomputadores para os sorteados 
do 1? ao 5? premios da Loteria Federal 

REGULAMENTO 



Para concorrer no 2° sorteio do sensacional Concurso 
INPUT, voce deve juntar 06 selos que virao no canto 
inferior direitodosfasciculosl a 16(1 seloporedicao), 
indistintamente. Se voce enviou a cartela para o 1? 
sorteio, ainda sobraram 02 selos que poderao ser usa- 
dos agora. Caso prefira nao usa-los, envieos selos das 
demais edigoes citadas. 

Cole os 06 selos na cartela abaixo, ou envie-os cola- 
dos num papel dentro de um envelope. 
Voce recebera um numero com o qual concorrera no 
sorteio da Loteria Federal do dia 04 de outubro de 
1986. Serao aceitas as cartelas/ selos enviados ate 
05.09.86. 



A cartela/selosdeverao ser enviados juntamente com 
seu nome, endereco, telefone, n? da carteira de identi- 
dade (do participante ou responsavel) e CPF, num en- 
velope enderecado ao CONCURSO INPUT - Caixa 
Postal 9442, CEP 01000, Sao Paulo - SP. 
OBS.: A prescricao do direitoaos premios sedara 180 
dias apos o sorteio. O resultado sera publicado nos 
fasciculos INPUT e os premios entregues por nossos 
distribuidores nas cidades de residencia dos contem- 
plados. 

Se tiver alguma duvida, consulte nosso Servico de 
Atendimento ao Leitor, pelo telefone (01 1 ) 81 5-8055 - 
ramal 235. 
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Nome: 

Endereco: 

CEP: 

Estado: 

CPF: 



_ 



Cidade: 














































Fone: 



Cedula de Identidade: 



] 



Nao perca mais esta chance de ganhar um dos 10 sensacionais 
microcomputadores HOT BIT HB 8.000 SHARP. 
Continue colecionando INPUT. Seu micro ganha vida. 



HOVA 

CULTUnt/H. 



IIIIIIIIIIIHNO PROXIMO NUMEROHnnillllin 



PROGRAMACAO DE JOGOS 

Efeitos sonoros: das explosoes aos rufdos extraterrenos e ao 
barulho de urn trem, eles dao vida e "colorido" aos jogos. 

CODIGO DE MAQUINA 

Como funciona a memoria interna do computador. Memorias RAM 
e ROM. Onde os programas sao armazenados. 

PROGRAMACAO BASIC 

Mensagens de prontidao. Programas de desenhos na tela. Uma 
rotina para entrada de senhas secretas. 




